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The program ETestTool performs physical link level packet transmission and 
reception between multiple cards on a single machine. The current version allows for 
multiple machines to perform this test while sharing the same network. In this way, the 
collision detection and retransmission functionality is verified. Errors detected by the 
Network Interface Controller (NIC) are timestamped and reported to the screen 
display. 

The current version of ETestTool runs as an MPW tool using MPW 2.0 shell or 
greater. Due to it's UNIX-like structure, the tool may be easily ported to run under 
A/UX, if desired. 

This program only reports the statistics of network activity; there is little 
interpretation of card "Pass" or "Fail" done by the program. As such, one should be 
familiar with the NIC documentation in order to interpret many of the subtle problems 
that may exist on a card. The following errors are timestamped & reported to the 
Macintosh II screen and can be optionally saved to a disk file: 

¢ Card RAM failure 

¢ 3Com board rework failure 

¢ Slot manager failure 

¢ CRC, Frame alignment, FIFO overrun errors 

e FIFO underrun errors 

¢ Missed packets due to buffer overflows 

¢ Packets lost without an error status reported on either the transmitter or receiver NIC 


In addition, the following occurrences are tallied: 
¢ Total packets sent 
¢ Number of packet transmissions lost or corrupted 
¢ Average number of retries per packet transmission 
¢ Number of packets received with CRC errors and/or frame alignment errors 
¢ Number of packets missed due to buffer overflow 
¢ Number of FIFO overruns and underruns 
¢ Number of excessive collisions, out of window collisions 
¢ Number of carrier sense lost & collision detect heatbeat failures 
¢ Number of transmission timeouts 
¢ Number of multicast packets received (none are currently sent by the program) 


Starting the Verification Test 
Copy the file named ETestTool into the folder which contains the MPW 2.0 (or 


greater) Shell application. After double-clicking the MPW shell icon to start that 
application, select the New menu item from the File menu and name the window as you 
would like the ETestTool result file to appear. In this new window type the following, 
being certain to use the enter key at the end: 

ETestTool 


The test will automatically search for valid etherTalk cards, and will echo each 
card's slot number. After checking RAM size and verifying the RAM, the test for the 
3Com rework is run. Failures are noted before running the packet transfer test. After 
the rework test, packets are sent from card to card, and errors are noted as they 


occur. To get the current error accumulatrion status and to pause, hit the mouse 
button. Press the mouse button again to continue testing. The cursor will spin a 
quarter turn for every 125 packets sent. To stop testing, simultaneously press the 
Command (Apple icon) and the period keys. The results may then be saved by using the 
Save menu Item under the File menu. 


ETestTool Options 


ETestTool options are entered at the time of starting the test. Below are a few 
examples to demonstrate the various options. The slot closest to the power supply is Slot 
9. Options may appear in any order 


ETestTool -a -B -C 
The above command runs the ETestTool on only slots A, B, & C 
ETestTool -1 2000000 -p 60 


The above command runs the ETestTool on all EtherTalk cards, sending two 
million frames to each card before completing. When the -i option is not specified, 
packets are sent until the operator cancels it by typing Command-period. 

The -p (progress) option specifies that the cummulative error status be updated and 
displayed automatically every 60 minutes, in this case. 


ETestTool -v 


The -v (verbose) option command runs the ETestTool showing all status information 
for every packet sent. This option slows down testing and increases memory 
requirements considerably. 


ETestTool -r 


The -r option (reverse dest direction) command resolves the ambiguity as to 
whether an error was generated by the transmitting or receiving EtherTalk card, when 
more than two cards are under test. For example, if EtherTalk cards reside in slots A, 
B, C & D, the packets normally proceed from the left to the right (A->B, B->C, C->D, 
D->A). If packets are corrupted or lost between slots B & C, reversing test direction 
may move the corrupted or lost packet error to between B & A (B's transmitter is 
malfunctioning), or to between D & C (C's receiver is malfunctioning). 


Notes on 3Com Rework Testing 


Currently, boards which have not been reworked will be reported after the RAM 
tests have run, after starting the verification test. The current test runs between pairs 
of cards and can only signal that one of the two cards has not been reworked. If all 
cards under test are said not to be reworked, it is possible that one of those cards may 
have been reworked, but could not be located because every other card under test has 
failed. Try each of the cards against a known working card to verify exactly which 
cards are not reworked. 


A page select test has also been added to insure that accesses to undefined 
portions of the EtherTalk memory map returns a bus error and does not hang the card. 

A test has also been added to test for bus errors on back-to-back Nubus accesses 
while accessing the EtherTalk control registers. A card master (such as the 
Macintosh Co-Processor Platform or the AST Smart Card) must reside in the system 
under test which is making frequent use of the NuBus in order for this test to be valid. 
If the Etesttool reports a bus error while the test is running, the card has failed the 
test. It will be neccessary to quit the MPW shell application and restart if the bus error 
occurs, as the stack will have been unbalenced by the bus error. 


Notes on Multiple Machine Testing 


When 3 or more machines are simultaneously running 'etesttool,’ on one connected 
network, excessive collisions (>16 per frame) begin to occur due to heavy network 
loading. The timeout and excessive collision messages are tallied by the internal 
counters (and seen by using the mouse button), but are not displayed as this causes the 
data file to be needlessly long. 


More information on error interpretation can be found in the DP8390/NS32490 
Network Interface Controller description, available from National Semiconductor. 
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#include <stdio.h> 
#include <signal.h> 
#finclude <Types.h> 
#include <OSUtils.h> 


pascal long TickCount () 
extern 0xa975; 

pascal char Button () 
extern 0xa974; 

pascal void ShowCursor () 
extern 0OxA853; 


short verbose = 0; /* O: Log only fatal errors, 1: Log all information */ 
short progress = 0; /* print progress info every statusTime seconds */ 
short polledMode = 0; /* default is polled tsr */ 

long statusTime; /* seconds between status reports if progress != 0 */ 
char *progName; /* Name of this program. ef 

short autoslots [6] =—-{0;, 0, 0, 0, 0, Os 

short autoFlag; 

short reversed = 0; 

int numCards = 0; 

int iterations = 0; /* -i: # of times each card tested, 0 := forever */ 


main(argce,argv) 

int argc; 

char ** argv; 

{ 
char *CPUF lag; 
unsigned long theSecond; 
unsigned long lastTime = 0; 
short i: 


setbuf (stdout, (char *) 0); /* don't buffer output */ 
ParseArgs (argc, argv); 


CPUFlag = (char *} Ox12F; 
if (*CPUFlag < 2) 


ParamDie("This tool incompatible with 68000 or 68010 processors.", " "); 
zZeroTallies(); 
AutoTest ()?; /* first call initializes cards */ 
printf("Starting packet transfer test..\nHit mouse button for status & pause..\nUse emd-period to quit..\n"); 
do { 
for (i=O; i<numCards; ++i) 
AutoTest (); /* send one packet per card */ 
oi 
( j if (Button()) { 
Bag PrintStats()}; 


printf("\nNow paused. Press mouse button to continue..\n"); 
while (!Button()); while (Button()}); 
print f("Continuing...\n"> 7 


if (iterations) { 
if (!(--iterations) ) { /* -i option */ 
PrintStats(}; 
printf ("\nRequested number of iterations complete. Normal exit.\n"); 


exit (0); 
} 
} 
if (progress) { /* -m option */ 
GetDateTime (&theSecond) ; 
if (! (theSecond$statusTime) && theSecond != lastTime) { 


PrintStats(}; 
lastTime = theSecond; 


} 


} 
} while (1); 
} 


ParseArgs (argc, argv) 

int argc; /* Count of command arguments. a 
char *argv[]; /* Command argument strings. */ 
{ 


short temp; 


progName = argv([0]; /* parse program name */ 
++argv; 
—-argc; 
for ( $ -arqe > 07 -<argc, ++targv ) 4 
if ( argv({0][0] == '-' ) { /* flags */ 
switch ( argv[O][1] ) { 
case ‘9°; temp = 9; goto common; 
case ‘a': case ‘A'S temp = OxA; goto common; 
case 'b': case ‘B': temp = OxB; goto common; 
case ‘c': case 'C': temp = OxC; goto common; 
case ‘d': case 'D': temp = OxD; goto common; 
case ‘e': case ‘E's temp = OxE; 
commons 
if (!GetSlotMgriInfo(temp) && !autoslots[temp-9]) { 
++numCards; 
autoslots{temp-9] = 1; 
} : P 
break; 
case ‘m': /* Print progress info. */ 


progress = 1; 
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if ( --arge <= 0 } 


ParamDie("Missing minute count between progress reports after ", argv[0]}; 


++argv; 
statusTime = atoi(argv[0]) * 60; 
lf (statusTime < 1) 
ParamDie("Minute count must be an integer greater than zero", " "); 
break; 
case ‘i': 
if ({ --arge <= 0) { 
printf ("Missing iteration count after ", argv[0]); 
exit (1); 
} 
++targv; 
iterations = atoi(argv[0]); 
if (iterations < 1) 
ParamDie("Iteration count must be an integer greater than zero", " ");7 
break; 
case ‘p's: 


polledMode = 1; /* poll status register instead of using interrupt driver 
break; 
case ‘r's 
reversed = 1; /* reverse test direction */ 
break; 
case ‘v's 
verbose = 1; /* Log information about every packet sent */ 
break; 
default: 
printf("# Usage: #%s [-(9-E)] [-i #Packets] [-minutes #minutes] [-reverse] 
exit (1); 
} /* switch ( argv{0O][1] ) */ 
} /* if ( argv[{0] [0] == '-' ) */ 
else { 
printf("# Usage: #%s [-(9-E)] [-i #NumPackets] [-minutes #minutes] [-reverse]\n", 
exit (1); 
} 
} /* for ( 3 arge > O; --argce, +targv ) */ 


} 


ParamDie(descl, desc2) 
char *descl; /* Ist half of problem description. */ 
char *desc2; /* 2nd half of problem description. */ 
{ 
fprintf(stderr, "### ts - %s%s\n", progName, descl, desc2); 
fprintf(stderr, “### %s aborted.\n", progName); 
exit(1); 
} 


/* 
pascal void BusErrDialog(codeLoc, mode, accesslLoc) 
long codeLoc; 
short mode; 
long accessLoc; 
{ 
fprintf(stderr, “A bus error occurred executing code at or before $%1x\n", codeLoc) ; 
if (mode & 0x40) 
fprintf(stderr, “Program attempted a read to location $%1x\n", accessLoc}; 
else fprintf(stderr, “Program attempted a write to location $%1x\n", accessLoc); 
fprintf(stderr, "\nDiagTool aborted..\n"); 
InstallOldv()}; 
Install24Int ()};7 
exit (3); 


sf 


\n", progName) ; 


progName) ; 
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SearchRAM (id) 
short id; 


{ 


“7 


short *ptr; 
int i; 


ptr = (short *) RAMStart (id); 
for (i = O07; i < Ox2000; i++) { 
if (*(ptr + i) == Oxabcd) 


/* 


ethermorgue.c 


BufferSize(sSlot) }; Message(st); 


? 


; Message (st); 


}; Message (st); 


ptr past last packet received */ 


/* link to next page of ring buffer */ 


check two bytes at a time */ 


sprintf(st, “found abcd at %x\n", ptrti); 


Message (St); 


if (! (packetsSent % 1000) } 


{ 


printf ("%9d", packetsSent) ; 


printf (backspaces) ; 


} 
if (EchoPacket(sSlot) }) { 


while (BufferSize (mSlot)) 
while (BufferSize(sSlot)) 


RemoveNextPacket (mSlot); 
RemoveNextPacket (sSlot); 


continue; 
} 
CRSMask = 0; AnalyzeRegs (sSlot); 
CRSMask = 1; AnalyzeRegs (mSlot); 


#define true32b 1 


/* printf(" swap byte of 0Ox00fa is"); 
j} = 0x00fa; swap bytes(&4); 
PrintNum (4); ~ 
printf ("Into CopyData (PSTOP - 16), (PSTART+4}*256"); 
InitRAM (curSlot); 
CopyData(curSlot, RAMStart (curSlot) +PSTOP*256-16, 
RAMStart (curSlot)+(PSTART+4)*256, 64); 
Query (); 
*/ 
/* Message("Into SendPacket\n"); 
SendPacket (mSlot, sSlot, RAMStart (mSlot)+0x10, 512); 
Query (); 
sprintf(st, “Slave Buffersize returned %x\n", 
Query (); 
Message (“Into Slave regs\n"); 
AnalyzeRegs (sSlot); 
DumpRegs (SSlot) ; 
Query (); 
Message ("Into slave DumpRAM\n"); 
DumpRAM(sSlot, Boundry(sSlot)*256, 32); 
DumpRAM (sSlot, (Boundry(sSlot) + 2)*256, 32); 
sprintf(st, "“GetPackLen returned %x\n", GetPacketLength(sSlot) ); 
Message (st); 
sprintf(st, "“GetPackSource returned %x\n", GetPacketSource(sSlot) 
Message (st); 
Query (); 
Message ("Into EchoPacket\n"); 
EchoPacket (sSlot); 
sprintf(st, “Slave Buffersize returned %x\n", BufferSize(sSlot) ) 
DumpRAM(sSlot, 0, 16); 
Query ()7 
sprintf(st, “Master Buffersize returned ¢x\n", BufferSize (mSlot) 
Message (“Into Master regs\n"); 
DumpRegs (mSlot); 
Message ("Into master DumpRAM\n"); 
DumpRAM (mSlot, Boundry(mSlot) *256, 32); 
DumpRAM (mSlot, (Boundry(mSlot) + 2)*256, 32); 
*/ 
int 
CheckReception (id) /* move current 
short id; 
{ 
unsigned char link; 
if (BufferSize(id) == 0) return NO ERR; 
link = *(RAMStart (id) + Boundry(id) * 256); 
link &= Ox3f; 
--link; /* adjustment */ 
if (link < PSTART) link = PSTOP; 
* (RegAddr (id, 3) ) = link; /* set new boundry */ 
return NO_ERR; 
} 
/* 
Message ("Card slot 0 is far left, 5 is far right)"); 
Message (“\nenter first card slot #(0-5):"); 
gets (numbuffer); j = atoi(numbuffer); 
do { 
curSlot = ((int)slotAddrs[j]>>24) & Ox00ff; 
printf("sID was %x", slotTable[numCards].slotID); 
slotTable[numCards++].slotID = curSlot; 
Message ("\nenter next card slot #(0-5), or -1 to start test:"); 
gets(numbuffer); j = atoi (numbuffer); 
} while (j != -1); 
*/ 
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#define false32b 0 


pascal void SwapMMUMode (c) 


char *c; 
extern OxA05D; 


Test ROMRead (slot) /* routine to test 3Com decode fix */ 


{ 


/* 


char c, mode, *aPtr; 


return; 

aPtr = (char *) OxFEFFOOOO; /* point to lst byte in ROM of Caliente card slot E */ 
mode = true32b; 

SwapMMUMode (&mode) ; 

c = *aPtr; /* 32 bit read from NuBus address */ 

mode = false32b; 

SwapMMUMode (&mode) ; 


TestRework () /* routine to verify rework fix for Rev A to Rev C fix */ 


{ 


/* assumes slot (0-5) has already been initialized */ 


short *romPtr, *ramPtr; 
Ati: 2g. F2 

short sender, receiver; 
short k, data; 


GetNextPair(&sender, &receiver); 


romPtr 
ramPtr 


(short *) ( (sender+9)*0x100000 + ROM START+120); /* point to $4501 in ROM */ 
(short *) ( (sender+9)*0x100000 + RAMOffset); /* point to lst byte in RAM */ 


for (i=0; i<400; ++i) 
*(ramPtrt+i) = 0x5555; 


for (i=0O; i<100; i++) { /* unfixed cards fail 11% of the time */ 
error = SendPacket (sender, &(slotTable[receiver].ROMID), é&myData, 64+1i); 


return; 
* (RegAddr (sender, 6) } 
* (RegAddr (sender, 5) } 


{char) ((800) >> 8); /* add 14 for header byte length */ 
(char) ((800) % 256); 


for (i=0; i<100; i++) { /* unfixed cards fail 11% of the time */ 
* (RegAddr (sender, 7) ) = -~-l; /* clear ISR masks */ 
* (RegAddr(sender, Oxf) ) = 0; /* clear interrupt mask register */ 
* (RegAddr (sender, Oxd) ) = 0x00; /* transmit config reg: normal operation */ 
* (RegAddr (sender, 0) ) = 0x22; /* start NIC */ 
* (RegAddr (sender, 0) ) = 0x26; /* & transmit */ 
j} = 9500; 
while (!(* (RegAddr(sender, 7) ) ) && --j ) /*x wait for ISR status */ 


k = * (romPtrt+j); 
if (!4) printf ("Timeout on slot %x\n", slot+9); 


} 
printf ("j=tda..\n", J)? 
for (i1=40; i<400; ++i) { 
Lf (*(ramPtr+i) != 0x5555) { 
printf("card in slot %x not reworked: (%1x) = %x\n", 
slot+9, (long) (ramPtrt+i), *(ramPtrt+i)); 
break; 
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code swab 
eles dod 
move.w 2 (a6),d0 
ror.w #8,d0 

move.l dO, (a6) 

ae rts 

end-code 

code fillw ( pat to cnt - ) 
move.l {a6)}+,d0 
addq.w #1,da0 
lsr.w #1,d0 
subq.w #1,d0 
move.l (a6)+,al 
move.l (a6)+,dl 


@L1 
move.w dl, (al)+ 
addq.w #1,dl 
dbra do, @L1 
rts 

end-code 

code movew ( from to cnt - ) 
move.l (a6)+,d0 
addq.w  #1,d0 
lsr.w #1,d0 
Subq.w #1,d0 
move.l (a6}+,al 
move.l (a6}+,a0 

@L1 
move.w (a0)+, (al)}+ 
dbra do, @L1 
rts 

end-code 

code logH 
Est. L (a6) 
beq @x 


movea.w #9,al 
moveq.1 #SF,d0 
@1 ror.l #4,d0 
subq.w #1,al 
move.l d0,dl 
and.1l (a6),dal1 


beg @l 

move.l al, (a6) 
@x rts 

end-code 
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SQLink equ 0 
SQType equ 4 
SQPrio equ 6 
SQAddr equ 8 
SQParm equ 12 


SQSize equ 16 


SIQType equ 6 
ISR equ $E0020 


MMU32bit equ $OCB2 


AppScratch equ $a8s0 


_Debugger OPWORD SAQFF 


Print Off 

INCLUDE 'Traps.a' 
Print On 

entry MYQUEUE:Data 


XmitiInt Proc 

: Debugger 

move SR, -—(sp) 
move.l a2, -(Ssp) 
move.l #AppScratch, a2 
move.w #-1, (a2) 
move.b #SFF, (al) 
moveq #1, DO 
andi.w #SF8FF,SR 
ori.w #$0200,SR 
move.l (sp)+, a2 
move (sp)+, SR 
rts 


™e “Sa 


Install slot interrupt queue element 
pascal short InstallInt (short slot); 


e 
f 
. 
s 


InstallETInt PROC EXPORT 
move.l (sp}+,dl 
ely, 1 dod 


move.w  (sp)+,d0 

move.l dil, -(sp) 

lea MYQUEUE, a0 
move.1l d0O, dl 

mulu #16, dl 

adda di, a0 

lea XmitiInt,al 
move.l al, SQAddr (a0) 
move.w #100, SQPrio(a0} 


move.w #SIQType, SQType (a0) 


move.l d0, dl 

lsl.w #4, dl 

swap dl 

add.1l #ISR, dl 
move.l dl, SQParm(a0) 


_SIntInstall 
move.w d0, 4(sp) 
rts 


7; Remove slot interrupt queue element 
; pascal short Removetnt (short slot); 
RemoveETInt Proc Export 

move.l (sp)+,dl 

move.w (sp)+,d0 

move.l dl, - (sp) 


lea MYQUEUE, a0 
move.l dO, dl 
mulu #16, dal 
adda al, a0 
_SInt Remove 
move.w dO, 4(sp) 
rts 

MACRO 

m32 


move.l dO, —{a7) 
move.l #1, dO 


_SwapMMUMode 
move.l (a7)+, dO 
ENDM 
MACRO 

m24 
move.l d0, - (a7) 
move.l #0, dO 
_SwapMMUMode 
move.1 {(a7)+, dO 
ENDM 


7 put 68020 into 32 bit addressing mode 

Mode32 PROC EXPORT 
move.l Al, — {A7) 
movea.l #MMU32bit, al 
CSC UD {al} 


EtherInterrupt.a 


7 (byte) boolean reflecting current 020 machine MMU mode 


j;last 4 bytes of Macintosh appl scratch area 


clear all of the card's interrupts 
indicate interrupt serviced 


interrupt priority must be 2 


{slot number from 9 to Oxe)} 


=e “68 


“=e Se Me 


pop return address 


pop slot # 
return the return address 
Ptr to Queve element 


point to correct queue element 


Ptr to interrupt routine 
store interrupt routine in Queve element 
set interrupt priorty 

7; type of interrupt 


di <- 000000s0 
dl <- 00s00000 


ITocation of card's interrupt status reg 
install interrupt handler 
return status 


(slot number from 9 to Oxe) 


Se Bs 


pop return address 
pop slot # 


point to correct queue element 


;set if 32 bit mode flag set 
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bne @1 ;don't call swapmmu if already in 32 bit mode 

_m32 ;switch to 32 bit mode (defined in CommDeclr.h) 
@1l move.l (A7)+, Al 

rts 

ENDP 


; put 68020 into 24 bit addressing mode 


Mode24 PROC EXPORT 
move.l Al, —(A7) 
movea.l #MMU32bit, al 


tst.b (al) ;set if 32 bit mode flag set 
beq @1 ;don't call swapmmu if already in 24 bit mode 
m24 
@1 move.l (A7)+, Al 
rts 
ENDP 


Ss se ae ae ae eae ss ee ae en se a esas aa eee eos oe ee 


Function GetAddr32 (addr32:Ptr; Var Value:Integer): Integer; 
Author: Bill Weigel 
passes back -1 if a card resides in given slot, and Value is valid 
0 if bus error occured accessing ROM space (Value is not valid) 
Note: This routine assumes that the Bus error replacement routine is in place... 


se Mea Ma Ms MWe 


GetAddr32 PROC EXPORT ;look for comm card ROM identifier 
IMPORT BusErrFlag:DATA ;defined in exceptions.a 
move.l (sp)+, do ;pop return address 
move.l (sp)+, dl ;pop value ptr 
move.l (sp)+, a0 ;pop 32 bit addrress 
move.l d0, ~(sp) ;restore return addr 
lea BusErrFlag, al 
clr.w (al) 7if bus error flag == 0, set flag w/o alert 
jsxr mode32 ;prepare for 32 bit address 
move.l di, al 
move.l #0, dO ;the following NuBus address instruction must be 4 bytes long 
move.w (a0, dO.1}, (al) ;store value or cause a bus error 
lea BusErrFlag, al 
cmp .w #-1, (al) 
beq @1 7 DUS ELrOr. <x 
jsxr mode24 ;fetched a valid address 
move.w #1, (al) ;put up alert if busErr occurs later 

@2 move.w #-1, 4(sp) ;pass back True 
rts preturn 

@1 jsr mode24 back to 24 bit addressing 
move.w #0, 4({(sp) ;pass back False 

. rts ,; return 
{ . ; Slot queue element parameter block 
aad 7MYQUEUE Record 

: DC. 0 

: DC.L 0 

; DC.h 0 

: DC.L 0 

7 Slot queue element parameter block 

MYQUEUE Record 
Doe 16 * 4 ; space for 16 Slot queue elements 
ENDP 


END 
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hd20:Ether Folder:Ether.c.o f hd20:Ether Folder:Ether.c 
c hd20:Ether Folder:Ether.c 
hd20:Ether Folder:MacEther.c.o f hd20:Ether Folder:MacEther.c 
c hd20:Ether Folder:MacEther.c 
etest f hd20:Ether Folder:MacEther.c.o hd20:Ether Folder:Ether.c.o 
Link hd20:Ether Folder:Ether.c.o hd20:Ether Folder:MacEther.c.o hd20:MPW_Folder:CLibraries:CRuntime.o hd20:MPW_Folder:CL: 
Duplicate -y etest '‘ENET TEST:etest' 
eject 'ENET TEST: ' 
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/* 


MacEther.c 


This program is the ethernet main driver and menu controller 


ald 


#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 
#include 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 
#define 


#define 
#define 
#define 
#define 
#define 
#define 


<segload.h> 
<Types .h> 
<QuickDraw.h> 
<Windows.h> 
<Menus.h> 
<Events.h> 
<TextEdit.h> 
<StdIO.h> 
<OSUtils.h> 
<Fonts.h> 
<Desk.h> 
<Dialogs.h> 


applemenu 
testmenu 
nodemenu 
automenu 
slavemenu 
transmitmenu 6 
receivemenu 


OWN E 


autoitem 
statsitem 
regsitem 
verboseitem 
pauseitem 
reverseitem 
quititem 


machitem 
mach _9slt 
mach Aslt 
mach Bslt 
mach Cslt 
mach Dslt 
mach Eslt 


auto _9slt 
auto _Aslt 
auto Bslt 
auto Cslt 
auto Dslt 
auto Eslt 
clearitem 


SON UI Bm Wh SION OP WNP SOO PWD ~ 


slave 9slt 
slave Aslt 
slave Bslt 
slave Cslt 
slave Dsit 
slave Eslt 


NUP WHYH 


/* #define eventMask mDownMask+keyDownMask+autoKeyMask */ 


#define 


/* 


* HIWORD and LOWORD macros, 


*/ 


#define 
#define 


#define 
#define 
#define 
#define 


eventMask -1 


for readability. 


HIWORD (aLong) 
LOWORD (aLong) 


((({aLong) >> 16) & OXFFFF) 
({aLong) & OXFFFF) 


OFF 0 
ON =I 
FALSE 0 
TRUE —-1 


MenuHandle mymenus[7]; 


Rect screenrect, 


dragrect, prect, crect, srect; 


short doneflag; 


Boolean 


temp; 


EventRecord myevent; 


short code, 


refnum; 


short themenu, theitem; 
TEHandle hte; 

Rect windowrect; 

WindowPtr mywindow, whichwindow; 
Ptr wrecord; 

Point mousepoint; 

GrafPort thePort; 


short 
short 
short 
short 
short 


short 
short 


machnum; 
autoslots[6]; 
autoFlag; 
verbose = 0; 
reversed = 0; 


/* these parameters passed to 


curSlot; 


ether.c */ 


slaveSlot; 
keyhit; 
pauseflag; 


short 
short 
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Menu routines */ 
mastertest (} {} 


-— lavetest 
(- slavetest () {} 


restart (} 


{ 
} 


doquit () 
{ 


pauseflag = OFF; 


keyhit = TRUE; 
doneflag = ON; 
} 


setmachnum () 

{ 
char numbuffer[10]; 
printf("\nMachine # = $d\n",machnum); 
printf("Enter machine # (1 - 255): "); 
gets (numbuffer); 
machnum = atoi(numbuffer); 


} 


setupmenus (} 


short i; 
char appletitle[2]; 
InitMenus (); 


appletitle[{0] = appleMark; 
appletitle[1] = 0; 
mymenus[Q] = (MenuHandle) NewMenu(applemenu, appletitle); 
AddResMenu (mymenus[0], (ResType) ‘DRVR'); 
mymenus[{1] = NewMenu(testmenu, “Test"); 
AppendMenu (mymenus[1],"Start;Status;Dump Registers; Verbose; Pause;Reverse Test Direction;Quit"™)? 
mymenus[2] = NewMenu (nodemenu, “Node") ; 
AppendMenu (mymenus[2]," (Machine; (slot-9; (slot-A; (slot-B; (slot-C; (slot-D; (slot-E"); 
mymenus[3] = NewMenu (automenu, "Setup") ; 
AppendMenu (mymenus[3],"slot-9;slot—-A; slot-B;slot-—C;slot-D;slot-E;Clear"}; 
mymenus [4] = NewMenu(slavemenu, "Slave") ; 
AppendMenu (mymenus[4],"“slot-9;slot-A; slot-B;slot-C;slot-D;slot-E"); 
mymenus[5] = NewMenu(transmitmenu, “Transmit"); 
AppendMenu (mymenus[5],"Send Broadcast;Inhibit CRC;Auto Transmit Disable;Collision Offset Enable"); 
mymenus([6] = NewMenu (receivemenu, "Receive"); 

is AppendMenu (mymenus[6],"Save Errored Packets;Accept Runt Packets;Accept Broadcast; Accept Multicast;Promiscuous Physical"), 

( = for (i=0O; i<= 6; i++) 
InsertMenu (mymenus [i {short} 0); 
Rae DisableItem(mymenus [0], 


l, 
0) 
DisableItem(mymenus[2], 0) 
DisableItem(mymenus[4], 0) 
DisableItem(mymenus[5], 0) 
DisableItem(mymenus[6], 0} 
DrawMenuBar (); 


ma Ne Me Ne Ve 


} 


docommand (theResult) 
long theResult; 
{ 
char name[256]; 
short ti; 
char *markChar; 
MenuHandle curMenu; 


theitem = LOWORD (theResult); 
themenu = HIWORD(theResult) ; 
curMenu = mymenus[themenu -1]; 


switch (themenu) { 
case applemenu: 
GetItem(curMenu, theitem, name); 
pauseflag = ON; 
refnum = OpenDeskAcc (name) ; 
pauseflag = OFF; 
break; 
case testmenu: 
switch(theitem) { 
case autoitem: 
CheckIitem(curMenu, theitem, (Boolean) TRUE); 
CheckItem(curMenu, pauseitem, (Boolean) FALSE); 
autoFlag = TRUE; 
pauseflag = 0; 
break; 
case statsitem: 
PrintStats ();7 
break; 
case regsitem: 
dumpregisters(); 
break; 
case verboseitem: 
verbose = !verbose; 
CheckItem(curMenu, theitem, (Boolean)verbose) ; 
break; 
case pauseitem: 
pauseflag = !pauseflag; 
CheckItem(curMenu, theitem, (Boolean) pauseflag); 
if (!autoFPlag && !pauseflag) 
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} 


/* 
ae J 


printf("\nSelect Auto to begin test\n"); 
break; 
case reverseitem: 
reversed = !reversed; 
CheckItem(curMenu, theitem, (Boolean) reversed); 
PrintStats (); 


if (reversed) Message("Packets now sent from right to left.\n"); 
else Message("Packets now sent from left to right.\n"); 


ZeroTallies(); 
break; 
case quititem: 
doquit (); 
break; 
} 
break; 
case nodemenu: 
switch(theitem) { 
case machitem: 
setmachnum(); 
break; 
default: 
if ({curSlot != 0) 
CheckItem(curMenu, curSlot, (Boolean) FALSE); 
CheckItem(curMenu, theitem, (Boolean) TRUE); 
curSlot = theitem; 
break; 
} 
break; 
case automenu: 
autoFlag = 0; /* turn off any previous test */ 
CheckIitem(mymenus[1], autoitem, (Boolean) FALSE); 
switch(theitem) { 
case clearitem: 
for (i = 17; i <= auto _Eslt;it+) { 
CheckItem(curMenu,i, (Boolean) FALSE); 


autoslots[i-1] = 0; 
} 
break; 
Gefault: 

autoslots[theitem-1] = !autoslots[theitem-1]; 
CheckItem(curMenu,theitem, (Boolean) autoslots[theitem-1]) 
break; 

break; 

case slavemenu: 
if (slaveSlot != 0) 


CheckItem({curMenu, slaveSlot, (Boolean} FALSE); 
CheckItem(curMenu, theitem, (Boolean) TRUE); 
slaveSlot = theitem; 
break; 


} 
HiliteMenu( (short) 0}; 


This is the event handling code from main. 


PollSystem() 


{ 


/* 


a 


/* 


SystemTask ()7 
temp = GetNextEvent (eventMask, &émyevent); 
keyhit = FALSE; 
switch (myevent.what) { 
case mouseDown: 
GetMouse (&émousepoint); 
code = FindWindow (&émyevent.where, &whichwindow); 
switch (code) { 
case inMenuBar: 
docommand (MenuSelect (&émyevent.where) ); 
break; 
to be implemented!!! 
case inSysWindow: 
SystemClick (&myevent, whichwindow) ; 
break; 
case inDrag: 


DragWindow (whichwindow, émyevent.where, &dragrect); 


break; 
case inGrow: 
case inContent: 

break; 


default: 
break; 
} 


case keyDown: 

case autokey: 
keyhit = TRUE; 
break; 


case activateEvt: 
if (myevent.modifiers ¢& 1) 
TEActivate (hte); 
else 
TEDeactivate (hte); 
break; 
case updateEvt: 
SetPort (mywindow}; 
BeginUpdate (mywindow) ; 
TEUpdate (&mywindow->portRect, hte); 


MacEther.c 
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EndUpdate (mywindow) ; 
break; 
x/ 
default: 
break; 
} 


} 


main () 


{ 


InitGraf (&qd.thePort) ; 
InitFonts (); 

FlushEvents (everyEvent, 0); 
InitWindows (); 

TEInit ()? 

InitDialogs (nil); 
InitCursor(); 

setbuf (stdout, (char *) 0); 


SetRect (&screenrect, 0,0, 640, 480); 
SetRect (&dragrect, 4, 24, screenrect.right-4, screenrect.bottom-4) ; 


doneflag = 0; 


mywindow = (WindowPtr) NewWindow ( 
(Ptr) wrecord, 
&screenrect, 
“"EtherCard Test", 
(Boolean) TRUE, (short) noGrowDocProc, (WindowPtr) -1, 
(Boolean) TRUE, (long) 0); 
Set Port (mywindow); 


setupmenus (); 


prect = mywindow->portRect; 

prect.top = mywindow->portRect.top; 
prect.right = mywindow->portRect.right; 
prect.left = mywindow->portRect.left; 
prect.bottom = mywindow->portRect .bottom; 
Inset Rect (&prect, 4, 0); 

hte = (TEHandle) TENew(&prect, &prect); 


pauseflag 
slaveSlot 
curSlot = 
machnum = 


OFF; 
0; 


ool tt 
"=a “se 


Ts autoFlag = TRUE; 


( /* following two lines added to support autostart */ 
ae pauseflag = 0; 


do 
if (!pauseflag) { 
if (autoFlag) AutoTest (); 


} 
PollSystem(); 
} while (doneflag == 0); 


CloseWindow (mywindow) ; 
QuitTest (); 
Egress ({); 


} 


Egress() { /* generate MacsBugs symbol */ 
ExitToShell (); 
} 
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/* Ethe 


Copy 
All 


Mod 


Ether.c 


reard verification routines and diagnostics in MPWC 
right © 1987, 1988 Apple Computer, Inc. 
rights reserved 


History: 


20 May 87 BW ist Rev. 
28 May 87 BW Added Mac interface 
4 June 87 BW Added ROMID field facilitating multiple test machines on 


a single network (to test collision detection & retransmission) 


10 June 87 BW Added verbose, reverse test direction commands. 
18 April 88 BW Added code to support ethernet packet analyzer. 


4 May 88 BW Single card test scenario to locate cause of missing packet problem. 


10 June 88 BW Added test for ‘upgrade' rework for incoming inspection. 
20 June 88 BW Added FindCard routine. 
28 June 88 BW Mods to support running as a MPW tool 


8 Au 
26 S 
21N 


as 


#include 
#include 
#include 
#include 
#include 


gust 88 BW Added Slot Mgr testing 
ept 88 BW Fixed TestROM call, RAM error location print statement 


Ov 88 BW Integrated interrupt / polled transmit option, also page select and 


BlastTCR tests 


<stdio.h> 
<Types.h> 
<Events.h> 
<Files.h> 
<OSUtils.h> 


#include <Slots.h> 


#include 


#define 
#define 
#define 
#define 


<errors.h> 
min{A, B) ({(A) < (B)) ? (A) =: (B) 
TIME ZIPS BY -1 


MAX SLOTS 6 
REENTER 0x1939 


char copyright[] = 
/* 


"Copyright © 1987, 1988 Apple Computer, Inc."; 


pascal void Debugger () 


extern Oxa9ff; 
eT, 


pascal short InstallETInt (slot) 


short slot; 
extern; 


pascal short RemoveETInt (slot) 


short slot; 
extern; 


pascal void SystemTask () 


extern Oxa9b4; 


pascal void RotateCursor (tick) /* Rotates beach ball cursor. */ 
long tick; 
extern; 
pascal void SpinCursor (tick) /* Rotates beach ball cursor. uses internal counter. 
short tick; 
extern; 
# define CURSORFORWARD (32) /* Tell RotateCursor to go forward. */ 
# define CURSORBACKWARD (-32) /* Tell RotateCursor to go backward.*/ 
pascal void InstallMyErrV (} extern; /* defined in exceptions.a */ 
pascal void Installolav () extern; /* defined in exceptions.a */ 


typedef struct { 
short 1; 
short m 
short h; 

} romID; 

romID broadcastID = 


unsigned short triggerData = OxABCD; 
unsigned short regularData = 


/* uses the low order byte of the unique ROM id */ 


{ 


/* sent in a packet after error detected */ 
0x0000; 


enum statvals {SENT PACK, RECV_ PACK, TIMEOUT, WAITING}; 


struct slotinfo { 
romID ROMID; 
short slotID; 
char master; 


/* slot location (0-5, presently same as index) */ 
/* master card if non-zero */ 


enum statvals status; 
unsigned int lastReceptionNum; /* Packet number of last valid reception */ 


int timeout; 


/* currently a loop decrementing counter */ 


} slotTable [MAX SLOTS]; 


#define TO SCREEN 0x01 

#define TO FILE 0x02 

#define TO PRINT 0x04 

short outputDirection = TO_SCREEN; 


FILE *outFile; 


/* log errors to file */ 


char *fileName = “error.out"; 


/* sent in a packet after no error detected */ 


a 


Page l 
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void MyAlert {), 


Query (), 
DumpRAM (), 
DumpRegs(}; 
char *RegAddr(), /* these functions return ethernet registers */ 
*RAMStart (), /* and memory addresses */ 


*memcpyl (), 
*GetSlotAddress (}; 


char *TimeStamp(); 

int ignoreErr; /* temporarily disable error reporting mechanism */ 
unsigned int packetsSent; /* frames sent successfully */ 

unsigned int Retries; /* used to calculate Retries/Packet */ 


unsigned int packetsReceived; 

unsigned int multicastsReceived [MAX SLOTS]; 
unsigned int heartFailures[{MAX SLOTS]; 
unsigned int carrierLost [MAX_SLOTS]; 
unsigned int collisions [MAX SLOTS]; 
unsigned int OWC[MAX SLOTS]; 

unsigned int CRCErrorTally[MAX SLOTS]; 
unsigned int CRCErrors[{MAX SLOTS]; 
unsigned int FIFOunderruns[MAX SLOTS]; 
unsigned int FIFOoverruns [MAX SLOTS]; 
unsigned int receiveErrors[MAX SLOTS]; 
unsigned int alignErrors(MAX_ SLOTS]; 
unsigned int excessCollisions [MAX SLOTS]; 
unsigned int lengthErrors [MAX SLOTS]; 
unsigned int missedPackets[MAX SLOTS]; 
unsigned int bufferOverflows[MAX SLOTS]; 
unsigned int transmitTimeouts [MAX SLOTS]; 
unsigned int lostOrCorrupt [MAX SLOTS]; 


/* Packets lost due to lack of resources */ 


char *errorAddress; /* set by routine detecting the problem */ 

char st[256]; 

int CRSMask; /* mask carrier sense lost bit on receiving end */ 

extern short polledMode; /* if non-zero, use polled status reg for transmit complete */ 
extern int numCards; /* defined in EtherTool.c */ 

extern short machnum; /* machine number */ 


extern short autoFlag; 

extern short autoslots[]; 

extern short verbose; /* when 0, only fatal errors are logged */ 

extern short reversed; /* reverse transmit card to resolve error ambiguity */ 


extern struct data { 
short BusErrFlag; 
short BusErrRetry; 


} data; 

short sSlot;> /* valid range is presently 0 to 5 */ 

short mSlot; /* master (sender) slot */ 

char *slotAddrs[6] = /* address of lst byte in each slot */ 


{ (char *)0xf9900000, (char *)Oxfaa00000, (char *)Oxfbb00000, 
(char *)Oxfcc00000, (char *)Oxfdd00000, (char *)Oxfee00000 }; 


dumpregisters () 
int. 2; 


if (!numCards) { 
SysBeep (3); 
return; 


} 
SetTest (); 
for (i=0; i < MAX SLOTS; i++) 
if (autoslots{fi]) 
DumpRegs (slotTable[i].slotID); 
} 


SetTest () /* set proper ids of cards to test */ 
{ 


int i; 


for ({i=0; i < 6; i++) { 
if (autoslots[i]) { 
slotTable[i].slotID = i; /* this relationship may change */ 
} 


} 


void myexit () /* cleanup after cmd-. termination */ 


{ 

int i; 
/* printf("Terminating etesttool..\n"); */ 

if (!polledMode) . 

for (i = 07; i < MAX SLOTS; i++) 
if (autoslots[i])} 
RemoveETInt (1+9); 

/* PrintStats(); */ 
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AutoTest {) 


{ 


/* 


/* 
/* 


int i, oldVerbose, error; 
int seed = 512; 
romID theID; */ 


atexit (myexit); /* used to remove slot interrupts after an abort */ 
1f (autoFlag != REENTER) { /* new test run */ 


Message ("\nEtherTalk Incoming Inspection Diagnostic Tool:"); 
Message (" Vers 1.0d8: 23 November 1988\n\n"); 


if (!autoslots[0] && !autoslots[1] && !autoslots[2] && !autoslots[3] && !tautoslots[4] && !autoslots[5]) 
FindCards (); 
SetTest (); /* set proper ids of cards to test */ 


printf("\n");7 
for {i = 0; i < MAX SLOTS; i++) { 


if (autoslots[i]) { 
InitSlot (slotTable[i].slotID); /* initializes NIC, performs RAM testing */ 
} 


} 


if (!polledMode) 
for (i = O07; i < MAX SLOTS; i++) 
if (autoslots{[i]) 
if ((error = InstallETInt (i+9) ) ) 
printf ("ERROR:Install receive interrupt on slot %X returned %$d\n", i+9, error); 


printf ("\n")}¢ 
for (i = 0; i < MAX SLOTS; i++) 
if (autoslots[i]) 
DataHoldTest (i); 


printf("\nNuBus Bus Error Test (Valid only if MR-DOS running on a separate CPU card)\n"); 
for (i = 0; i < MAX_SLOTS; i++) { 
if (autoslots[i]) { 
printf ("Testing Slot $X..\n", 1i+9); 
BlastTCR(i); 


} 


PageSelectTest (); 
if (nmumCards < 2) { 
Message ("2 or more connected 3Com/Apple EtherTalk cards needed to continue testing..\n") 7 
autoFlag = 0; 
exit(1); 
return; 
} 
SlotDecodeRework (); 
ZeroTallies(); /* reset packet counter from rework test */ 
autoFlag = REENTER; 
/* if (autoFlag != REENTER) */ 


if (reversed) GetNextPair(&sSlot, &mSlot); /* resolve transmit - bat g 
else GetNextPair(&mSlot, &sSlot); /* receive err ambiguity */ 
if (++seed > 1500) { 

seed = 64; 


} 

if (! (packetsSent % 125) ) { 
RotateCursor (CURSORFORWARD) ; 

} 


error = SendPacket (mSlot, &(slotTable[sSlot].ROMID), &regularData, seed); 


if (error) { /* timeout or transmit abort error */ 
oldVerbose = verbose; 
verbose = -1; 


AnalyzeRegs (mSlot); 

verbose = oldVerbose; 

while (BufferSize (mSlot) } RemoveNextPacket (mSlot) ; 

while (BufferSize(sSlot}} RemoveNextPacket (sSlot}; 

InitNIC (slotTable[mSlot].slotID}); /* hanging timeout fix */ 
InitNIC (slotTable[sSlot].slotID); /* hanging timeout fix */ 
continue; 


} 


if ((!BufferSize(sSlot) /* || GetPacketLength(sSlot) != seed */)} && 
!(* (RegAddr(mSlot, 4} ) & Ox08 ) ) { /* not TSR abort */ 

if (!SendPacket (sSlot, é&broadcastID, &triggerData, 64) ) /* trigger analyser */ 
--packetsSent; /* don't count trigger packet in totals */ 

++lostOrCorrupt [mSlot]; 

Message (TimeStamp() ); 

sprintf (st, “"\nPacket #%d from %X to %X was corrupted or lost ", 

packetsSent-1, (int)mSlot+9, (int)sSlot+9); 

Message (st); 

if (!BufferSize(sSlot) ) 
Message ("(receive buffer empty)"); 

else if (GetPacketLength(sSlot) != seed) /* changed m to s 15 April 1988 */ 
Message ("(data length field incorrect)"); 

oldVerbose = verbose; 

verbose = -1; 

Message ("\n----Transmitter packet header & data----\n"); 

DumpRAM (mSlot, (short *})RAMStart (mSlot), 24); 

Message ("----Transmitter Slot Status----\n"); 

AnalyzeRegs (mSlot); 

Message ({"----Receiver Slot Status----\n")}; 

AnalyzeRegs (sSlot); 


/* changed m to s 15 April 1988 */ 
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verbose = oldVerbose; 
Message ("\n\n") ; 
= for (i = 0; i < MAX SLOTS; i++) 
if (autoslots[i]) 
InitNIC (slotTable[i}].slotID); /* hanging card fix */ 
} 
CRSMask = 0; AnalyzeRegs (mSlot); /* also updates error tally count */ 
CRSMask = 1]; AnalyzeRegs (sSlot); 
while (BufferSize (mSlot)) RemoveNext Packet (mSlot) ; 
while (BufferSize(sSlot)) RemoveNextPacket (sSlot) ; 


ignoreErr = 0; /* reset disable error reporting mechanism */ 
return; /* return to user interface routine */ 


} while (TIME ZIPS BY); 
} 


#define TPSR 0x00 /* Transmit Page Start */ 
#define PSTART (unsigned char) 0x08 /* receive buffer start */ 
/* #define PSTOP (unsigned char)0x3f /* 1/2 of 64 K RAM ard 
#define PSTOP (unsigned char) 0xlf 


char * 
GetSlotAddress(id) /* returns slot address of id */ 
{ 


} 


GetNextPair(mSlot, sSlot)} 
short *mSlot, *sSlot; 


return slotAddrs{[{id}; 


Static int lastMaster = -1; 


if (lastMaster < 0) 
while (!autoslots[++lastMaster] ) 
f 
*sSlot = slotTable[lastMaster].slotID; 
slotTable[lastMaster].master = 0; 
do { 
++lastMaster; 
lastMaster %= MAX SLOTS; 
} while (!autoslots{lastMaster] ); 


*mSlot = slotTable[lastMaster].slotID; 
slotTable[lastMaster].master = -17 
} 


int 

SendPacket (SID, GROMID, data, dLength) 
short sID; 

romID *dROMID; 


/* returns non-zero on failure */ 


short *data; /* In this version, only 2 bytes copied to xmit buffer so as to maximize traffic */ 


short dLength; 
{ 


short *wPtr; 


wPtr = (short *) ((long)RAMStart(sID) & OxfffffFffO); 
*wPtr = GROMID->h & Ox00ff; /* mask extra bits in this version */ 
*(wPtr + 1) GROMID->m & Oxff00; 


*(wPtr + 2) GROMID->1 « Oxff00; /* destination address */ 

*(wPtr + 3) = slotTable[{sID].ROMID.h & OxO0Off; 

*(wPtr + 4) = slotTable[sID].ROMID.m & Oxff00; 

*(wPtr + 5) = slotTable[sID].ROMID.1 & Oxff00; /* source address */ 

*(wPtr + 6) = dLength; 

*(wPtr + 7) = (short) (packetsSent>>16); /* packet # data */ 

*(wPtr + 8) = (short) (packetsSent ¢& Oxffff); /* packet # data */ 

*(wPtr + 13) = *data; /* test data */ 

* (RegAddr(sID, 6) ) (char) ((dLength+14) >> 8); /* add header byte length */ 


* (RegAddr(sID, 5) ) (char) ((dLengtht14) % 256); 


* (RegAddr(sID, 7) ) = -l; /* clear receiver ISR masks 21 nov 88 */ 


return Transmit (sID); 


} 


int 

Transmit (id) 

{ 
A. Se 
unsigned int tCount; 
short *xmitComplete; 


xmitComplete = (short *) Oxa80; /* last 4 bytes of AppScratch area */ 
*xmitComplete = 0; /* set non-zero by xmit complete interrupt */ 


tCount = (unsigned int) TickCount (); /* 8 second timeout was requested by 3Com engineers */ 


* (RegAddr (id, 7) )} = -1; /* clear ISR masks */ 
if (polledMode) 


* (RegAddr (id, Oxf) ) = 0; /* clear interrupt mask register */ 
else 
* (RegAddr (id, Oxf) ) = OxOA; /* interrupt mask set for transmit & xmit error */ 
* (RegAddr (id, Oxd) } = 0x00; /* transmit config reg: normal operation */ 
* (RegAddr (id, 0) ) = 0x22; /* start NIC */ 
* (RegAddr (id, 0) } = 0x26; /* & transmit */ 
/* TestROMRead (id); /* test for decode address problem */ 


}/* for (i=0; 1<100; ++i} ' ss ae kludge wait before testing status (was 2000) xf 
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if (polledMode) { 
if (* (RegAddr(id, 7) ) ) { /* if any bits set, wait a bit longer */ 
for (i1=0; i<2000; ++i) ; /* kludge wait before testing status (was 2000) */ 


} 
while (!(*(RegAddr(id, 7) ) ) && (unsigned int)TickCount() - tCount < 8*60 ) 


Test ROMRead (id); /* wait for ISR status */ 
} 
else { /* transmit interrupt mode */ 
while (!(*xmitComplete) && (unsigned int)TickCount() ~- tCount < 8*60 ) 
TestROMRead (); /* wait for ISR status */ 


} 
if ((unsigned int)TickCount () - tCount >= 8*60) { 
Message (TimeStamp()} ); 
sprintf(st, “\nSlot %X, Packet #%d: NIC transmit timeout\n", id+9, packetsSent-1); 
Message (st); 
++transmitTimeouts[id]; 


/* for (i = 0; i < MAX SLOTS; i++) 
if (autoslots[i]) 
InitNIC (slotTable[i].slotID); /* hanging timeout fix */ 


return -1; 


} 

else if ( ( *(RegAddr(id, 7)) & Ox08) ) { /* transmit aborted bit */ 
printf("Slot %X, packet %d: Transmit aborted bit set\n", id+9, packetsSent-1); 
return O; 

} 

else 
++packetsSent; 

return O; 


} 


int 
EchoPacket (id) /* send a packet back to its source */ 
short id; /* returns non-zero on error */ 


{ 
int cnt; 
romID theROMID; 


if (!BufferSize(id) }) { 
printf ("EchoPacket called with no packets in buffer\n"); 
return ~-1; 


} 


cnt = GetPacketLength (id); 
CopyData(id, RAMStart (id) + Boundry(id)*256 + 4, RAMStart (id), cnt); 
Get Packet Source {id, &theROMID); 
if (SendPacket (id, &theROMID, RAMStart(id)+16, cnt) ) 

return -1; /* handle this error in main loop */ 
RemoveNext Packet (id); /* clean up buffer */ 


( return O; 
} 


unsigned char 
GetNext Link (id) /* returns the next packet's page address */ 


{ 
} 


RemoveNext Packet (id) /* clear next packet from ring buffer without saving */ 
short. id; 


{ 


return *((unsigned char *)RAMStart (id) + Boundry(id)*256 + 1) & PSTOP; 


unsigned char link; 


if (!BufferSize(id) ) { 
/* Message ("RemoveNext Packet called with no packets in buffer\n"); */ 
return -1; 
} 


link = GetNextLink (id); 
if (--link < PSTART) link = PSTOP; /* wraparound adjust */ 
/* printf("removeNP slot %X link is %x\n", id+9, (int) link); ay 
++packetsReceived; /* should this be elsewhere??? */ 
* (RegAddr (id, 3) ) = link; /* reset NIC boundry pointer */ 
} 


Get Packet Length (id) 
{ 
short *cnt; 


ent = (short *) (RAMStart (id) + Boundry(id)*256 + 16); /* from receive buffer */ 
return *cnt; 


} 


GetPacketSource (id, source} 
short id; 
romID *source; /* returns the sender ROM id of next packet in memory */ 


{ 


if (BufferSize(id}) == 0) { /* maybe call an alert??? */ 
Message ("Uh oh, GPS called with no packets in buffer...\n"); 
return -1; 

} 

source->1 

source->m 

source->h 

return 0; 


*(short *) (RAMStart (id) + Boundry (id)*256 + Oxe); 
* (short *) (RAMStart (id) + Boundry (id)*256 + Oxc); 
* (short *) (RAMStart (id) + Boundry (id}*256 + Oxa); 


fou od 


} 


} int 
| Boundry (id) /* returns page pointer to next package to remove from ring */ 
short id; 
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{ 


unsigned char bPtr; 


* (RegAddr (id, 0) ) 


bPtr 
if (++bPtr > PSTOP) /* ++bPtr points to next available buffer */ 


= 0x22 


= *((unsigned char *)RegAddr(id, 3) ); 


bPtr = 


PSTART; 


return (int)bPtr; 


} 


int 


Current (id) /* returns current page register (head ptr to receive ring buffer) */ 


short id> 


{ 


char curPtr; 


* (RegAddr (id, 0) ) 
curPtr = *(RegAddr(id, 7) }); 
* (RegAddr (id, 0) ) 
return (int)curPtr; 


} 
int 


BufferSize(id) 
short id; 


{ 
int 


num 
if 


num; 


= Curre 


return num 


} 


struct NICpair { /* each NICpair pair corresponds to data, register */ 


char data; 
char reg; 

} NICinit{] = { 
Ox22, Ox0, 
Ox21, Ox0, 
0x49, OxE, 
Ox00, OxA, 
Ox00, OxB, 
0x04, OxCc, 
Ox02, OxD, 
PSTART, Ox1, 
PSTOP, Ox2, 
PSTOP, 0x3, 
TPSR, 0x4, 
OxFF, Ox7, 
0x00, OxF, 

/* Ox02, Ox6, 

/* 0x00, Ox5, 
Ox61, Ox0, 
0x00, Oxl, 
Ox00, Ox2, 
0x00, Ox8, 
0x00, 0x3, 
0x00, OxC, 


Ox21, Ox0, 
Ox22, Ox0, 
0x00, OxD 


}; 


#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 
#define 


| #define 


#define 
#define 


char * 


NO_ERR 
RAM ERR 


= 0x62; 


= 0x22; 


Ether.c 


/* page 0 */ 


/* page 1 */ 


/* returns the page size of unread buffers */ 


nt (id) 


- Boundry (id); 


(num < 0) num += PSTOP - PSTART; 


/* NIC off-line */ 
/* init command register, abort DMA, NIC off-line, 
/* Data config set - word length DMA transfers */ 
/*clear RBCRO */ 

/*clear RBCRI1 */ 

/* Rev config (accept broadcast) */ 
/* NIC in loopback mode */ 

/* set PSTART reg - ring buffer init */ 
/* set PSTOP reg - ring buffer init */ 

/* set boundary reg - ring buffer init */ 
/* Xmit Page Start */ 
/* reset Interrupt Status register */ 
/* clear Interrupt Mask register */ 
/* set Xmit byte count register 1 */ 
/* set Xmit byte count register 0 */ 
/* select page 1 registers */ 


/* set Physical Address Regs to node addr - regs 1 -> 6 */ 


Ox00, 0x3, Ox00, Ox4, Ox00, Ox5, OXxFF 
/* set Multicast Address regs - regs 8 -> F */ 
0x00, OxA, Ox00, OxB, 

Ox00, OxD, Ox00, OxE, Ox00, OxF, 
PSTART, Ox7,/* curr page ptr to ring buffer */ 
/* Select Page 0 regs */ 

/* set start mode */ 

/* initialize Xmit config register */ 


0x00 
Ox01 


OUT OF BOUNDS 0x02 


ISR_RXE 
ISR_TXE 
ISR OVW 
ISR_CNT 
TSR COL 
TSR_ABT 
TSR_CRS 
TSR_FU 

TSR CDH 
TSR_OWC 
RSR_CRC 
RSR_FAE 
RSR_FO 

RSR_MPA 
RSR_PHY 
RSR_MUL 
RSR_ PRX 
TSR PTX 
TSR DFR 
ISR PTX 
ISR PRX 
ISR_RDC 


FINFO_ ERR 0x25 


0x03 
0x04 
0x05 
0x06 
0x07 
0x08 
0x09 
Ox0a 
Ox0b 
Ox0c 
Ox0d 
Ox0e 
Ox0f 
0x10 
Oxil 
0x12 
0x13 
0x14 
0x16 
Ox15 
0x17 
0x18 


NIicoOffset (char *)Oxe003c 


RegAddr (id, n) 
short id, n; 


{ 


/* returns address of NIC register n in slot id */ 


return slotAddrsfid] + NICOffset - n*4; 


, Ox6, 


Page 0 */ 


Page 6 
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InitSlot (id) 
short id; 


{ 


} 


int 


short i; 


* (RegAddr (id, 0) ) = 0x21; /* turn off NIC during RAM test */ 
MyAlert (id, TestRAM(id) )}; 
InitNIC (id); 
for (i=0O; i < 8; i++) /* the first 16 bytes */ 
*((int *)RAMStart (id) + i) = 0; /* zero xmit buffer */ 


InitNIC (id) 
short id; 


{ 


/* 
*/ 


/* 


ig) 


} 


Ine 13 


for (i=0; i < sizeof (NICinit)/sizeof (struct NICpair); i++) 
* (RegAddr (id, NICinit[i].reg) ) = NICinit[i].data; 


* (RegAddr (id, 0) ) = 0x61; 
slotTable[id] .ROMID.h 


/* Page 1 registers */ 

*(short *) (GetSlotAddress (id) + Oxf0006); 

slotTable[id] .ROMID.m *(short *) (GetSlotAddress (id) + Oxf0008); 

slotTable [id] .ROMID.1 *(short *) (GetSlotAddress (id) + Oxf000a); 

if (slotTable[id] .ROMID.h == 0x700 && slotTable[id].ROMID.m == 0x900 && 
slotTable[id].ROMID.1 == Oxb00) { 


sprintf (st, “WARNING: card in slot %X may be missing ROM identifier chip.\n", id+9); 


Message (st); 
Message ("Program cannot run without this ROM installed.\n"); 
Query ();7 


/* multicast address has MSB set high */ 
int)slotTable[id].ROMID.h}) << 16; 
i 


(int *})RegAddr(id, 1) . 
( 
(int)slotTable[id].ROMID.m} << 16; 
( 


7 

*((int *)RegAddr(id, 2) 
*((int *)RegAddr({id, 3) 
*((int *)RegAddr(id, 4) 
*((int *)RegAddr(id, 5) 
*((int *)RegAddr(id, 6) 


int)slotTable[id}.ROMID.1) << 16; 


| 
ON ORS O 


slotTable[id] .ROMID.h = (slotTable[id].ROMID.h >> 8) & Ox00ff; 

/* so as not to be confused with a multicast address */ 
slotTable[id] .ROMID.m «= Oxff00; 
slotTable[id] .ROMID.1 &= Oxff00; 


/* Physical Addr node # */ 

* (RegAddr(id, 0) ) = 0x21; /* Page 0 regs */ 

i *RegAddr(id, Ox0d); /* clear tally counters */ 

i *RegAddr(id, Ox0e); 

pf *RegAddr(id, Ox0f); 

printf("block id = %x %x %x", *(short *) (GetSlotAddress (id) + Oxf0000), 
* (short *) (GetSlotAddress (id) + Oxf0002), 
*(short *) (GetSlotAddress (id) + Oxf0004) ); 


printf(" slot id = %x %x $x", *(short *) (GetSlotAddress (id) + Oxf0006), 
*(short *) (GetSlotAddress (id) + Oxf0008), 
* (short *) (GetSlotAddress (id) + Oxf000a) ); 

* (RegAddr (id, 0) ) = 0x22; /* start NIC */ 


return NO ERR; 


#define RAMOffset (char *) 0OxDO000 


char * 
RAMStart (id) /* return the first location of RAM on board in slot id (0-5) */ 
short id; 


{ 
} 


int 


return GetSlotAddress (id) + RAMOffset; 


TestRAM(id) /* returns non-zero error on failure */ 
short id; 


{ 


/* 
/* 


register short *ptr; 
register unsigned short i; 
unsigned short RAMSize; 


ptr = (short *) RAMStart (id); 


* (ptr+0x2000) = 0x1234; /* see if memory wraps around... */ 
*ptr = Oxabcd; 
if ((* (ptrt+0x2000) & Oxffff) == Oxabcd) RAMSize = 0x2000; /* 16K checked two bytes at a time */ 
else if ((* (ptr+0x2000) « Oxffff) == 0x1234) RAMSize = Ox8000; /* 64K checked two bytes at a time */ 
else { 

RAMSize = 0x2000; /* some cards don't wrap around */ 


printf("(16K RAM didn't wraparound) "); */ 
printf£("* (ptr+0x2000) = XK ", (*(ptrt+0x2000) & Oxffff)); */ 
} 
printf("Slot %X Apple/3Com EtherTalk card: %l1dK bytes RAM:", id+9, (RAMSize/0Ox200)); 
for (i = 0; i < RAMSize; ++i) 
*(ptr+i) = Oxffff; 
for (i = 0; i < RAMSize; ++i) 
if (*(ptrt+i}) «& Oxffff != Oxffff) { /* compiler returns 32 bit data */ 
errorAddress = (char *} (ptr + i); 
Message ("Test 1,"); 
return RAM ERR; 
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} 


} 


for (i = 0; i < RAMSize; ++i) 
*(ptrti} = 0; 
for (i = 0; i < RAMSize; ++i) 
if (*(ptr+i) != 0) { 
errorAddress = (char *) (ptr + i); 
Message ("Test 2,"); 
return RAM ERR; 
} 


for (i = 07; i < RAMSize; ++i) { 
*(ptr+i} = i; 
Lf (*(ptr+i) != i) { 
errorAddress = (char *) (ptr + i); 
Message ("Test 3,")}; 
return RAM ERR; 


} 


for (i = O; i < RAMSize; ++i) 
*(ptrt+i) = 0Ox5555; 
for (i = O07; i < RAMSize; ++i) 
if (*(ptrt+i) != 0x5555) { 
errorAddress = (char *) (ptr + 
Message ("Test 4,"); 
return RAM ERR; 


= 
— 
bo 


} 


for (1 = O7; i < RAMSize; ++i) 
*(ptrt+i) = Oxaaaa;> 
for (i = O07; i < RAMSize; ++i) 
Lf (*(ptrt+i) & Oxffff != Oxaaaa) 
errorAddress = (char *) (ptr + i); 
Message ("Test 5,"); 
return RAM ERR; 


— 


} 


printf(" verified.\n"); 
return NO _ ERR; 


void 
DumpRegs (id) /* of NIC in slot id (9 - e) */ 
short id; 


int i; 
char j; 


* (RegAddr (id, 0} } = 0x21; 
sprintf (st,"NIC Register dump of machine %x, slot %X\nPage 0 “", machnum, id + 9); 
for (i=O; 1 < 16; i++) { 


if (i == 6) 

Message ("6:XX "); /* don't disturb data in FIFO register */ 
else { 

j = * (RegAddr(id, i) }?; 

sprintf (st,"%1x:%02x ", i, (j & Oxff) ); Message (st); 


} 
} 
Message ("\nPage 1 "“); 
* (RegAddr(id, 0} ) = Oxé6l1; 
for (i1=0; i < 167 i++) { 
j} = *(RegAddr(id, i) ); 
sprintf(st, "%1x:%02x ", i, (j & Oxff) ); Message (st); 
} 


Message ("\n"); 


* (RegAddr (id, 0) ) = 0x22; /* page 0 */ 
} 
void 
DumpRAM (id, begin, cnt) /* display a range of memory in card id */ 
short id; 
char *begin; 
int cnt; 


{ 


} 


begin = (RAMStart (id) + ((short)begin & Ox3ffe) ); /* start on word boundry */ 
sprintf (st,"%4x: ", begin); Message(st); 
while (cnt-- > 0) { 
sprintf(st, "%04x ", *(short *)begin & Oxffff); Message (st); 
begin += 2; 
if (!({short)begin % 16) && cnt) { 
sprintf(st, "\n%4x: ", begin); 
Message (St); 
} 
} 
Message ("\n"); 
return; 


char *memcpyl (to, from, cnt} 
short *to, *from; 
int cnt; 


{ 


ent >>] 43> 
while (cnt--) 

*(tot+) = *(fromt+t); 
return (char *) from; 


Message (st); 
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CopyData(id, from, to, cnt} 


short id; 
char *to, *from;> /* absolute addresses */ 
int cnt; /* count in bytes */ 
{ 
int first; /* used to calculate page memory wraparound */ 


first = min(RAMStart (id) + (PSTOP+1)*256 - from, cnt); 
memcpyl (to, from, first); 
to += first; 
' if ( (ent -= first) > 0) memcpyl (to, RAMStart (id) + PSTART*256, cnt); 


fillw(seed, to, cnt) /* simple routine for filling a data buffer */ 
register int seed; 
register short *to; 
register int cnt; 
{ 

++cnt; 

ent >>= 1; /* # of words in packet */ 

while (cnt--) 

* (tot++) = seed+t; 
return; 


} 


void 

swap_ bytes (i) /* rvror.w #8, dO */ 
register short *i; 

{ 


register short j; 


j= *1 & Oxffff; 
*L1 = 3<<8 | 4>>8; 
return; 


} 


AnalyzeRegs (id) /* check status registers of NIC for errors and such */ 
short id; 
{ 


register char flags; 


if (packetsSent < 6) 
return; /* NIC may show false errors after power on */ 
/* *(RegAddr(id, 2) ) = 0x21; /* stop NIC while checking regs */ 
flags = * (RegAddr(id, 7) )}7; 
/* if (flags != 3 && flags != 2) 
printf("ISR = %X, RSR = %X\n", (int) flags, (int) *(RegAddr(id, Oxc) ) }; 


a 6 
if (flags & 0x01) MyAlert (id, ISR PRX); 
if (! (flags & 0x02)) MyAlert (id, ISR PTX); 
if (flags & 0x04) MyAlert (id, ISR RXE); 
if (flags & 0x08) MyAlert (id, ISR _TXE); 
if (flags & 0x10) MyAlert (id, ISR_OVW); 
if (flags & 0x20) MyAlert (id, ISR_CNT); 
if (flags & 0x40) MyAlert (id, ISR_RDC); 
flags = *(RegAddr(id, 4) ); 
if (! (flags & 0x01)) MyAlert (id, TSR PTX); 
if (flags & 0x02) MyAlert (id, TSR_DFR); 
if (flags & 0x04) { MyAlert (id, TSR COL); Retries += * (RegAddr(id, 5) ); } 
if (flags & 0x08) MyAlert (id, TSR ABT); 
if ((flags & 0x10) && !CRSMask) MyAlert (id, TSR_CRS); 
if (flags & 0x20) MyAlert (id, TSR_FU); 
if (flags & 0x40) MyAlert (id, TSR CDH); 
if (flags & 0x80) MyAlert (id, TSR_OWC); 
flags = *(RegAddr(id, Oxc) ); 
if (flags & 0x01) MyAlert (id, RSR_ PRX); 
if (flags & 0x02) MyAlert (id, RSR CRC); 
if (flags & 0x04) MyAlert (id, RSR_FAE); 
if (flags & 0x08) MyAlert (id, RSR_FO); 
if (flags & 0x10) MyAlert (id, RSR_MPA); 
if (flags & 0x20) MyAlert (id, RSR_ MUL); 
else MyAlert (id, RSR_PHY); 
if ((flags = *RegAddr(id, Ox0d) ) != 0 && flags != Ox7f) { 
alignErrors[id] += flags; 
sprintf(st, "Slot %X, Packet %d: Frame alignment error tally (hex) :$x\n", id +9, packetsSent-1, flags); 
Message (st); 
} 
if ((flags = *RegAddr(id, Ox0e)) != 0 && flags != Ox7f) { 
CRCErrorTally[fid] += flags; 
sprintf(st, “Slot %X, Packet %d: CRC error tally:%x\n", id +9, packetsSent-1, flags); 
Message (st); 
} 
if ((flags = *RegAddr(id, Ox0f)) != 0 && flags != Ox7f) { 
missedPackets[id] += flags; 
sprintf(st, "Slot %X, Packet %d: Missed packet error tally:%x\n", id +9, packetsSent-1, flags); 
Message (st); 
} 
* (RegAddr (id, 0) ) = 0x22; /* start, page 0 */ 
} 
void 


MyAlert (id, which) /* informs operator of system errors and warnings */ 
{ 
switch(which) { /* transmission status */ 
case NO_ERR: return; 
case ISR PTX: 
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if (verbose) printf("Slot %X, packet %d:Interrupt status register: Successful transmit bit NOT set.\n", id+3, pa 
return; 
case TSR PTX: 
if (verbose) Message("Transmit status register: Successful transmission bit NOT set.\n"); 
return; 
case TSR DFR: 
if (CRSMask) return; 
if (verbose) Message("Transmit status register: Non deferred transmission.\n"); 
return; 
case TSR CDH: 
if (CRSMask) return; 
++heartFailures[id}; 
if (verbose) Message("Transmit status register: Possible collision detect heartbeat failure.\n"); 
return; 
case TSR CRS: 
if (CRSMask) return; 
++carrierLost [id]; 
if (verbose) Message(“Transmit status register: Carrier sense lost. Transmission not aborted.\n"); 
return; 
case TSR COL: 
if (CRSMask) return; 
++collisions[id]; 
if (verbose) Message("Transmit status register: Transmission collision detected.\n"); 
return; 
case TSR OWC: 
if (CRSMask) return; 
++OWC [id]; 
if (verbose) Message("Transmit status register: Out of window collision. Transmission not aborted.\n"); 
return; 
case TSR ABT: 
if (CRSMask) return; 
++excessCollisions[id]; 
if (verbose) Message("Transmit status register: Transmission aborted due to excessive collisions.\n"); 


else /* printf ("Transmit status register: Transmission aborted due to excessive collisions.\n"); 
ignoreErr = -l; happens rather often on a loaded network*/ 
return; 


case ISR_TXE: 
if (CRSMask) return; 
if (verbose) { 
printf ("Slot %X, Packet %d: ", id +9, packetsSent-1); 
Message ("\nInterrupt status register: Transmit error (excessive collisions or FIFO overrun) \n"); 


else {* printf ("Interrupt status register: Transmit error (excessive collisions or FIFO overrun) \n"); 
*/ return; 
case RSR_ PRX: /* reception status */ 


case ISR PRX: 
if (0) Message("Successful reception bit set.\n"); 
came return; 
( ) case RSR PHY: 
a4 if (0) Message("Receive status register: Packet used a physical address.\n"); 
return; 
case RSR MUL: 
++multicastsReceived[id]; 
if (verbose) Message("Receive status register: Multicast address bit set.\n"); 
return; 


} 


sprintf(st, "\nSlot %X, Packet td: “, id +9, packetsSent-1); 
Message (st); /* report a serious error */ 
switch(which) { 
case RAM ERR: 
sprintf (st, "RAM failure at address %x\n", errorAddress); 
Message (St); 
break; 
case ISR_RXE: 
++receiveErrors[id]; 
Message ("Interrupt status register: Receive error (CRC, Frame align, FIFO Overrun, or missed packet)\n"); 
break; 
case ISR OVW: 
++bufferOverflows [id]; 
Message ("Interrupt status register: Overwrite warning (receive buffer is filled)\n"); 
break; 
case ISR CNT: 
Message ("Interrupt status register: Counter overflow.\n"); 
break; 
case TSR_ FU? 
++FIFOunderruns [id]; 
Message ("Transmit status register: FIFO underrun detected.\n"); 
break; 
case RSR_ CRC: 
++CRCErrors [id]; 
Message ("Receive status register: Received packet with CRC error.\n"); 
break; 
case RSR FAE: 
++alignErrors[id]; 
Message ("Receive status register: Frame alignment error detected.\n"); 
break; 
case RSR_ FO: 
++FIFOoverruns[id]; | 
Message ("Receive status register: FIFO overrun. Packet reception aborted.\n"); 
break; 
case RSR MPA: 
Message ("Receive status register: Missed Packet due to buffer overflow.\n"); 
break; 
default: 
sprintf (st, “Program alert ID = %d\n", which); Message (st); 
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} 
Quit 
{ 


} 


return; 


Test () 
FInfo the_info; 


PrintStats(); 
return; 


Ether.c 


/* used to set 'TEXT' type output file */ 


/* for tool, results can be redirected using MPW commands */ 


printf ("“Appending all results to file %s", fileName); 


if (GetFInfo(fileName, 


(short)0, &the info) != noErr) MyAlert (0, FINFO ERR); 


the info.fdType = 0x54455854; /* ‘TEXT! */ 


if (SetFInfo(fileName, 
fclose(outFile);_ 


PrintStats () 


{ 


} 


Message ("\n")? 
Message (TimeStamp() }; 


(short)0, &the info) != noErr) MyAlert (0, FINFO ERR); 


sprintf (st, “\n\nTotal packets sent (base 10) = %d, ", packetsSent); 


Message (st); 


sprintf (st, “total packets received = d\n", packetsReceived); 


Message (st); 
if (packetsSent) { 


sprintf (st, “Total retries = %d, Average Retries/Packet = %f\n", 
Retries, (float) Retries/packetsSent); 


Message (st); 


} 


Message ("Transmissions lost or corrupted-> Transmitter"); 
PrintArray (lostOrCorrupt) ; 

Message ("Excessive collisions (transmissions aborted) ->"); 
PrintArray (excessCollisions); 

Message ("Transmission timeouts (transmissions aborted)->"); 
PrintArray (transmitTimeouts); 

Message (“Received CRC error tally register->"); 

PrintArray (CRCErrorTally); 

Message ("Packets received with CRC error bit set->"); 


PrintArray (CRCErrors); 


Message ("Packet frame alignment errors received->"); 
PrintArray (alignErrors); 

Message ("Buffer overflows received->"); 

PrintArray (bufferOverflows) ; 

Message ("Missed packets due to buffer overflow->"); 
PrintArray (missedPackets} ; 

Message ("FIFO underruns->"); 

PrintArray (FIFOunderruns) ; 

Message ("FIFO overruns->"); 

PrintArray (FIFOoverruns) ; 

Message ("Possible collision detect heartbeat failure bit set->"); 
PrintArray (heartFailures} ; 

Message ("Carrier sense lost (transmissions not aborted)->"); 
PrintArray (carrierLost) ; 

Message ("Total collisions (transmissions not aborted) ->"); 


PrintArray (collisions); 


Message ("Out of window collisions (transmissions not aborted)}->"); 


PrintArray (OWC) ; 


Message ("Multicasts detect flag set->"); 
PrintArray (multicastsReceived) ; 


PrintArray (theArray) 


int 


{ 


theArray[]; 
int 1s 
Message(" Slot"); 


for (i = O; i < 6; it+) 
if (autoslots[i]) { 


sprintf (st, “" x: %d;",1+9, theArray[i]); 


Message (st); 


} 
put char ((char)0x08); 


{* /* backspace one to remove last semicolon */ 
Message ("\n"); 
} 
void 
Query () 
{ 
char temp[64]; 
printf(" Continue? (y/n)"); 
gets (temp); 
if (temp[0] != 'y' && temp[0] != 'Y' && strlen(temp) > 0) { 
QuitTest (); 
exit (0); 
return; 
} 
char * 
TimeStamp (} /* resolution to the second */ 


static char lastTime[128]; 


DateTimeRec d; 


Get Time (&d) 3 


sprintf(lastTime, “Date:%2d/%d/%2d Time:%2d:%02d:%02d ", 
d.month, d.day, d.year, d.hour, d.minute, d.second); 
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return lastTime; 


} 


Message (string) /* logs output to outputDirection devices */ 
char *string; 


Static int firstTime = -1; 


if ((outputDirection & TO FILE) && firstTime) { 

firstTime = 0; 

if (outFile = fopen(fileName, “a") )} { 
fputs ("\n\n------------ new test run--------------- \n\n", outFile); 
Message (TimeStamp() );7 

} 

else 
printf(“error file ts could not be opened...", fileName); 


} 


if (outputDirection & TO SCREEN) printf (string); 
if ((outputDirection & TO FILE) && outFile) { 

fputs (string, outFile); 
} 


ZeroTallies () /* reset error counters */ 


{ 


short i; 


packetsSent = 0; 

Retries = 0; 

packetsReceived = 0; 

for (i=0; i < MAX SLOTS; i++) { 


multicastsReceived{i] = 0; 
heartFailures[i] = 0; 
carrierLost [i] = 0; 
collisions[i] = 0; 

OWC[i] = 0; 
CRCErrortTally[i] = 0; 


CRCErrors[i] = 0; 
FIFOunderruns[i] = 0 
FIFOoverruns[i] = 0; 
receiveErrors[i] = 0 
alignErrors[i] = 0; 
excessCollisions[i] 
lengthErrors[i] = 0 
ae) missedPackets[i] = 
_ bufferOverflows [i] 
: transmitTimeouts [i] 
lostOrCorrupt [1] 


i 
© 
ae || 


} 


/* Message("\n---Error counters reset to zero---\n"); */ 


} 
#define ROM START OxF0000 


TestROMRead (slot) /* routine to test 3Com decode fix, called by Transmit via SendPacket */ 
{ 


short 1, j, *romPtr? 


romPtr = (short *}) ( (slot+9})*0x100000 + ROM START + Ox1A0); /* (OxsFO1A0) = $ff01 or Sffff in ROM */ 
for (i1=0; i<30; ++i) 
j = *romPtr; 


} 


SlotDecodeRework() /* routine to verify rework fix for Rev A to Rev C-J fix */ 
/* assumes slot (0-5) has already been initialized */ 
/* the routine SendPacket calls TestROMRead() while the packet is being sent */ 


char exmitPtr, *revPtr; 
short sender, receiver; 
short myData = 0x0000; 
int ig 32 

int passed; 


printf("\nTesting for slot decode/data corruption rework..\n"); 
for (sender=0; sender<6; ++sender) { 
if (!autoslots[sender]) 


continue; 
passed = 0; /* card guilty until proven innocent */ 
for (receiver=0; receiver<6; ++receiver) { 
if (tautoslots[receiver] || sender == receiver) 
continue; 
xmitPtr = (char *)}) RAMStart (sender); /* point to transmit buffer in RAM */ 
for (i=0; i<400; ++i) 
*(xmitPtr+i) = 0x00; /* clear xmit buffer */ 
for (i=0O; i<100; ++i) { /* unreworked cards fail approx.11% of the packets */ 


if (SendPacket (sender, &(slotTable[receiver].ROMID), &myData, 94+i) ) { 
printf ("Timeout: could not send rework test packet from %X to %X (check cable connections)\n", 
sender+9, receiver+t 9); 


break; 
if ((!BufferSize(receiver) || GetPacketLength(receiver) != 94+i) && 
!(* (RegAddr(sender, 4) ) & Ox08 ) ) { /* not TSR abort */ 


printf("Rework test packet from %X to %X corrupted (possible bad card)\n", 
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sender+9, receivert+9); 


break; 
} 
Tian revPtr = (char *) RAMStart (receiver) + Boundry (receiver) *256; 
) for (j=267 j<94+i; ++35) { 
le 1f (* (rcevPtrt+j) &&Oxff != 0x00) { 
[* printf ("Expecting 0, found %x at location %lx, ", 
* (rcevPtrt+j) &&Oxff, rcevPtrt+j); 
x. 
break; 
} 
while (BufferSize (receiver) ) RemoveNextPacket (receiver); 
Lf (3 != 94+1) break; /* failed test */ 
} /* for (i1=O07 i<100;7 itt) */ 
if (i == 100) passed = -1; /* completed every iteration */ 


} /* for (receiver=0...) */ 
if (passed) printf("Slot %X has been reworked.\n", sendert+9); 
else printf("Slot %X may not have been reworked.\n", sender+9); 


} 
printf("Slot decode/data corruption rework test completed.\n\n"); 


pascal short GetAddr32(addr32, value) 
long addr32; 


short *value; 
extern; 
FindCards () /* locate EtherCards via block address (w/ & w/out using slot manager) */ 
{ 
long no i 
short value; 
InstallMyErrv (); /* set up bus error handler/find card routine */ 
for (id = 0; id < MAX SLOTS; ++id) { 
if (GetAddr32 (Oxf90f0000 + id*0x1000000, &value) == 0) 
printf("Slot %X: Empty or not responding.\n", id+9); 
else if ((value & Oxff00) == 0x0200) { 
GetAddr32 (Oxf90f0002 + id*Ox1000000, &value); 
if ((walue & Oxff00) == 0x6000) { 
autoslots[id] = -1; 
++numCards; 
{* printf("Slot %X: EtherTalk card.\n", id+9); */ 
if ( GetSlotMgrInfo (id+9) ) /* double check using slot manager */ 
fprintf(stderr, “Slot manager error: check or replace card %X's ROM..\n", id+9); 
else if (GetBoardID(id+9) != 8) 


fprintf(stderr, “Slot manager error: board %X id not Apple/3Com id.\n", id+9); 


‘a pa aN } 
Cc] 
. } 


InstallOldv (); 
} 


PageSelectTest () /* look for problems assoc. w/ strange address accesses */ 
{ 

short value; 

short pSel; 

int id; 


printf("\nStarting page select test..\n"); 
InstallMyErrV (); /* set up bus error handler/find card routine */ 
for (id = 0; id < 6; ++id) if (autoslots[id]) { 

printf("Card %X: ", id+9); 

for (pSel = OxF; pSel > OxC ; --pSel) { 


if (GetAddr32 (Oxf9000000 + id*0x1000000 + pSel*0x10000, &value) == 0) { 
printf("Page %X: Unexpected bus error.\n", (int)pSel); 
break; 
} 
if (pSel != OxC) continue; 
for (pSel = OxC; pSel >= 0 ; --pSel) { 
if (GetAddr32 (0xf9000000 + id*O0x1000000 + pSel*0x10000, &value) != 0) { 
printf("Page %X: Expected bus error, but returned %X.\n", (int)pSel, (int)value); 
break; 


} 


} 
if (pSel >= 0) continue; 
else printf ("passed.\n"); 
} 
InstallOldv(); 
putchar ('\n'); 
} 
| #define setPB(arg) pB.spSlot = slot;\ 
PB.spID = arg;\ 
pB.spResult = (long) &pB 


#define BoardId 32 /* board resoruce ID */ 
#define catBoard 1 /* used for defining Board sRsre in Dir */ 


Get BoardID (slot) 


int slot; /* 9 to Oxe */ 
{ 
SpBlock pB; 
SInfoRecord myInfoRec; 


pB.spSlot = slot; 
pB.spResult = (long) é&myInfoRec; 


oaths a titdie ea 


i 


ed 
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if (!SReadInfo (&pB) ) /* Read ptr to directory of all resource types */ 
if (myInfoRec.siInitStatusA != smEmptySlot) { 
setPB (cat Board); /* Read ptr to board type resources */ 
PB.spExtDev = 0; 
if (!SRsrcInfo (&pB) ) { 
setPB (BoardId); /* Read the board ID resource */ 
if ( !SReadWord(&pB) ) 
return( (short) (pB.spResult & Ox0000ffff)); 
} 
return (0); /* Can't read the boardId */ 
} 
int 
Get SlotMgrinfo(slot) /* get slot manager info & output error info */ 
int slot; /* 9 to Oxe */ 
{ 
SpBlock PB; 
SInfoRecord myInfoRec; 
OSErr SMErY; 
pB.spSlot = slot; 
pB.spResult = (long) é&myInfoRec; 
smErr = SReadInfo (&pB); 
switch (myInfoRec.siInitStatusA) { /* Read ptr to directory of all resource types */ 
case 0: break; /* A-OK */ 
case smEmptySlot: fprintf(stderr, "Slot %X: Empty or not responding.\n", slot); break; 
case smCRCFail: fprintf(stderr, "Slot %X: CRC Check failed.\n", slot); break; 
case smFormatErr: fprintf(stderr, “Slot %X: declaration ROM format wrong.\n", slot); break; 
case smRevisionErr: fprintf(stderr, "Slot %X: declaration ROM revision wrong.\n", slot); break; 
case smNoDir: fprintf(stderr, "Slot %X: no directory found.\n", slot); break; 
case smLWTstBad: fprintf(stderr, “Slot %X: ROM long word test failed.\n", slot); break; 
case smNosInfoArray:fprintf (stderr, "Slot %X: SDM unable to allocate sInfo array memory.\n", slot); break; 
case smResrvErr: fprintf(stderr, “Slot %X: declaration ROM reserved field used (fatal).\n", slot); break; 
case smUnExBusErr: fprintf(stderr, “Slot %X: unexpected bus error occurred.\n", slot); break; 
case smBLFieldBad: fprintf(stderr, "Slot %X: ROM byte lanes field invalid.\n", slot); break; 
case smFHBlockRdErr:fprintf (stderr, "Slot %X: F-header block couldn't be read.\n", slot); break; 
case smDisposePErr: fprintf(stderr, "Slot %X: DisposePtr error occurred.\n", slot); break; 
case smNoBoardsRsrc:fprintf (stderr, "Slot %X: No board slot resource.\n", slot); break; 
case smGetPRErr: fprintf(stderr, "Slot %X: sGetPRAMRec error occurred.\n", slot); break; 
case smNoBoardId: fprintf(stderr, "Slot %X: no board ID found.\n", slot); break; 
case smInitTblErr: fprintf(stderr, “Slot %X: error occurred initializing slot resource table.\n", slot); brea] 
case smNouUmpTbl: fprintf(stderr, "Slot %X: can't create slot manager jump table.\n", slot); break; 
case smBadBoardId: fprintf(stderr, "Slot %X: board ID invalid.\n", slot); break; 
case smInitStatVErr: fprintf(stderr, "Slot %X: ROM powerup/primary initialization code failed, returned %d.\n", 
slot, myInfoRec.siInitStatusV) ; break; 
default: 
fprintf(stderr, “Slot %X returned slot manager error #%d.\n", slot, myInfoRec.siInitStatusA) ; 
} 
return (myInfoRec.siInitStatusA) ; 
} 
BlastTCR(sID) 
short sID; 
short i; 
long j; 


enar *ptr; 


InstallMyErrv(); 

ptr = 

for (j = O07 3 < 3000000; +434) { 
i = *(ptr+0x28); 
*(ptrt+0x24) = 0; 


} 
InstallOldvVv(); 
} 


DataHoldTest (sID) 
short sID; 
{ 

long i 
char k 
char Jj; 
char *ptr; 


e ™a “8 


printf("Slot %X data hold time test:", 
* (RegAddr(sID, 0) ) = 0x62; 
ptr = 


for (i=O; i < 10000; ++i) { 
*(ptr+Ox3C) = 0x62; 
1£ 0 (* (ptrt+0Ox3C) != 0x62) 
continue; 
else break; 
} 
if (1 > 0) { 


(char *) (Ox9E0000 + sID*0x100000); 


sID+9}; 


/* set up bus error handler/find card routine */ 
(char *) (Ox9E0000 + sID*0x100000); 


/* page 1 */ 


printf(" FAILED; $d iterations for setting page 1 reg.\n", 


sID+9, i); 
* (RegAddr(sID, 0) ) = 0x22; 
return: 


LOR (5 = Oe. 4 ORs 
*(ptr+0x10) = 4; 
if ((k = *(ptr+0x10) ) != 4) { 


++4) { 


eel a eS eg a, a ce dp ce er AR es te Saad a, et hy ie a hee gence et Aetee tale, | amidtg au aideurehde-nains cadieoasene dts Gabinete diss tei Beets ge ES cael as So el ae os ieee cS a ee a A a es Nie a eet ey eal 
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| printf(" FAILED; expected %X, found %x at address %X\n", 
(int)j, (int)k, (int) (ptr+0x10) ); 
* (RegAddr(sID, 0) ) = 0x22; 
return; 
} 


} 
* (RegAddr(sID, 0) ) = 0x22; 
printf ("passed.\n"); 


} 

pascal void BusErrDialog(codeLoc, mode, accessLoc) 

long codeLoc; 

short mode; /* special status register from exception stack frame */ 
long accessLoc; 

{ 


fprintf(stderr, “FAILURE: A bus error occurred executing code at or before $%1x\n", codeLoc) ; 
if (mode & 0x40) 

fprintf(stderr, “Program attempted a read to location $%lx\n", accessLoc); 
else fprintf(stderr, “Program attempted a write to location $%lx\n", accessLoc); 
fprintf(stderr, “\nWARNING: Further MPW operations may now give erroneous results.\n"); 
fprintf(stderr, " Quit & retart MPW to continue.\n"); 
fprintf(stderr, “DiagTool aborted..\n"); 
InstallOldv(); /* remove bus error handler */ 
exit (3); 
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/* Ethercard verification routines and diagnostics in MPW C 
Mac interface routines contained in file MacEther.c 
© Apple Computer, Inc. 1987 
All rights reserved 


report bugs or useful modifications to Bill Weigel x-3898 


Mod History: 
20 May 87 BW 1st Rev. 
28 May 87 BW Added Mac interface 
4 June 87 BW Added ROMID field facilitating multiple test machines on 
a single network (to test collision detection & retransmission) 
10 June 87 BW Added verbose, reverse test direction commands 
12 June 87 BW Added code to attempt to locate cause of dissapearing 
packets on a heavily loaded network. not documented. 
18 April 88 BW Added code to support ethernet packet analyzer 


ey, 


#include <stdIO.h> 
#include <Types.h> 
#include <Events.h> 
#include <Files.h> 
#include <OSUtils.h> 


#define min(A, B) ((A) < (B)) 2? (A) =: (B) 
#define TIME ZIPS BY -1 

#define MAX SLOTS 6 

#define REENTER 0x1939 


typedef struct { 
short 1; /* uses the low order byte of the unique ROM id */ 
short m>; 
short h; 

1 } romID; 

romID broadcastID = { 
Oxffff, 
Oxffff, 
Oxffftf 

Ve 

unsigned short triggerData 

unsigned short regularData 


OxABCD; /* sent in a packet after error detected */ 
Ox0000; /* sent in a packet after no error detected */ 


enum statvals {SENT PACK, RECV_ PACK, TIMEOUT, WAITING}; 


struct slotinfo { 
romID ROMID; 


_ short slotID; /* slot location (0-5, presently same as index) */ 
: ‘, char master; /* master card if non-zero */ 
| enum statvals status; 


unsigned int lastReceptionNum; /* Packet number of last valid reception */ 
int timeout; /* currently a loop decrementing counter */ 
} slotTable [MAX SLOTS]; 


#define TO SCREEN 0x01 

#define TO FILE 0x02 

#define TO PRINT 0x04 

short outputDirection = TO SCREEN | TO FILE; 

FILE *outFile; /* log errors to file */ 
char *fileName = "error.out"; 


void MyAlert (), 


Query (}, 
DumpRAM (), 
DumpRegs (); 
char *RegAddr ({), /* these functions return ethernet registers */ 
*RAMStart (), /* and memory addresses */ 


*memcpyl (), 
*GetSlotAddress (}); 


char *TimeStamp(); 

char backspaces[] = "\010\010\010\010\010\010\010\010\010"; 

int ignoreErr; /* temporarily disable error reporting mechanism */ 
unsigned int packetsSent; /* frames sent successfully */ 

unsigned int Retries; /* used to calculate Retries/Packet */ 


unsigned int packetsReceived; 

unsigned int multicastsReceived [MAX SLOTS]; 
unsigned int heartFailures[MAX SLOTS]; 
unsigned int carrierLost [MAX SLOTS]; 
unsigned int collisions [MAX SLOTS]; 
unsigned int OWC[{MAX SLOTS]; 

unsigned int CRCErrorTally[MAX SLOTS]; 
unsigned int CRCErrors[MAX SLOTS]; 
unsigned int FIFOunderruns[MAX SLOTS]; 
unsigned int FIFOoverruns [MAX SLOTS]; 
unsigned int receiveErrors[MAX SLOTS]; 
unsigned int alignErrors[MAX SLOTS]; 
unsigned int excessCollisions [MAX SLOTS]; 
unsigned int lengthErrors [MAX SLOTS]; 
unsigned int missedPackets[MAX SLOTS]; 
unsigned int bufferOverflows[MAX SLOTS]; 
unsigned int transmitTimeouts [MAX SLOTS]; 
unsigned int lostOrCorrupt [MAX SLOTS]; 


/* Packets lost due to lack of resources */ 


char *errorAddress} /* set by routine detecting the problem */ 


sett lms asl id Ot tea tibet ta ee a Boa ars ee BR eG a ae ame EN icd cath kis ail Rh A A ei Fi a ae ee BaD Sea eS Ra shee ee ee Soke Wie gertie Jala. US an a 2 Bae. te ssh Bie he BEC trace til “ 2 ‘ sowbiss Seb toch Ses, Qk 
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char st[256]; 
int numCards = 0; 
int CRSMask; /* mask carrier sense lost bit on receiving end */ 


extern short machnum; /* these are set in MacEther.c */ 

extern short autoFlag; 

extern short autoslots[]; 

extern short verbose; /* when 0, only fatal errors are logged */ 

extern short reversed; /* reverse transmit card to resolve error ambiguity */ 


/* pascal void SpinCursor (increment) 
short increment; 


extern; 
Lit f 
short sSlot; /* valid range is presently 0 to 5 */ 
short mSlot; /* master {sender} slot */ 
short pSlot; /* promiscuous slot */ 
char *slotAddrs[6] = /* address of lst byte in each slot */ 


{ (char *)0xf9900000, (char *)Oxfaa00000, (char *)Oxfbb00000, 
(char *)Oxfcc0O0000, (char *)Oxfdd00000, (char *)Oxfee00000 }; 


pascal short InstallETInt (slot) 
short slot; 
extern; 


pascal short RemoveETInt (slot) 
short slot; 
extern; 


pascal void Debug () 
extern OxaSff; 


dumpregisters () 


{ 
int i; 


if (!numCards) { 

SysBeep (3); 

return; 
} 
SetTest ()?; 
for (1=0; i < MAX SLOTS; i++) 

if (autoslots[i]) 

DumpRegs (slotTable[i].slotID); 
} 


- FindCards () /* locate EtherCards via block address */ 
“ 
y int: id: 
return; /* or crash */ 


for (id = 0; id < MAX SLOTS; idt++) 
printf("block id = $x %x tx", *(short *) (GetSlotAddress (id) + Oxf0000), 
*(short *) (GetSlotAddress (id) + Oxf0002), 
*(short *) (GetSlotAddress (id) + Oxf0004) ); 


} 


SetTest () /* set proper ids of cards to test */ 
{ 
int i; 


numCards = 0; 
for (i=O; i < G7; itt) { 
if {autoslots[i]) { 
slotTable[i].slotID = i; /* this relationship may change */ 
numCardst+; 


} 


AutoTest () 
{ 
char numbuffer[64]; 
int i, oldVerbose, error; 
int seed = 512; 
short Jj; 
char *ptr; 
romID theID; 


if (autoFlag != REENTER) { /* new test run */ 
Message (" Ethercard verification diagnostic\n"); 
Message (" Interrupt version 16 May 1988\n"); 


/* printf ("Promiscuous Slot (0-5 or -1 if none):"); 
gets (numbuffer); pSlot = atoi(numbuffer); 

mf. pSlot = -1; 
if (pSlot != -1) 


{ 
slotTable[pSlot].slotID = pSlot; 
InitSlot (pSlot); 

} 


{* else Message("No promiscuous slot..\n");7 */ 
Message ("Single Card Test...")7;7 
autoslots[3] = -1; /* test for slot C only */ 
SetTest ();3 - /* get proper ids of cards to test */ 


zZeroTallies()}; 
sé if (numCards < 2) { 
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Message (“Loopback testing not implemented in this version\n")?; 
autoFlag = 0; 


Query (); 
return; 
a/ 
for (i = 07; i < MAX SLOTS; i++) 
if (autoslots[i]}) 
InitSlot (slotTable[i].slotID); 
if (! (i = InstallETInt(0x0c) ) } 
printf("Install etest interrupt returned %d\n", i); 
else 
printf("etest interrupt installed successfully..\n") ; 
autoFlag = REENTER; 
} /* if (autoFlag != REENTER) */ 
do 
while (1) { 
if (packetsSent<3) SendPacket (3, &broadcastID, &triggerData, 940); 
else Transmit (3); 
/* AnalyzeRegs (3); */ 
if (! (packetsSent % 1000) ) { 
printf ("%9d", packetsSent) ; 
printf (backspaces); 
} 
if (Button() ) 
return; /* do user interface stuff */ 
} 
return; 
if (reversed) GetNextPair(&sSlot, &mSlot); /* resolve transmit - * fF: 
else GetNextPair(&mSlot, &sSlot); /* receive err ambiguity */ 
if (++seed > 1500) { 
/* seed = 64; */ 
seed = 1300; 
/* SpinCursor({short) 1); */ 
} 
1f (! (packetsSent % 1000) ) { 
printf ("%9da", packetsSent); 
printf (backspaces); 
} 
if (pSlot != -1) { 
InitNIC (pSlot); 
/* * (RegAddr (pSlot, Ox00} ) = 0x21; /* stop NIC while changing regs */ 
_ /* * (RegAddr (pSlot, OxOc) ) = 0x16; /* Promiscuous, broad & multicast */ 
: _ * (RegAddr (pSlot, 0x00) ) = 0x61; /* accept all multicasts */ 
} * (RegAddr (pSlot, 0x08) ) = Oxff; 
cl * (RegAddr (pSlot, 0x09) ) = Oxff; 
* (RegAddr (pSlot, Ox0a) ) = Oxff; 
* (RegAddr (pSlot, Ox0b) ) = Oxff; 
* (RegAddr (pSlot, Ox0c)} ) = Oxff; 
* (RegAddr (pSlot, Ox0d) ) = Oxff; 
* (RegAddr (pSlot, Ox00) ) = 0x21; 
* (RegAddr (pSlot, Ox0Oc) }) = 0x20; 
* (RegAddr (pSlot, 0x00} ) = 0x22; /* start promiscuous NIC */ 
* (RegAddr (pSlot, Ox0Oc) ) = 0x16; 
} 
if (packetsSent < 6} /* initialize xmit buffer */ 
error = SendPacket (mSlot, &(slotTable[sSlot].ROMID), &regularData, seed); 
else 
error = Transmit (mSlot); 
if (error) { /* timeout error */ 
while (BufferSize(mSlot)) RemoveNext Packet (mSlot); 
while (BufferSize (sSlot}) RemoveNextPacket (sSlot); 
continue; 
} 
1f (pSlot!=-1) *(RegAddr(pSlot, 0x00) ) = 0x21; /* stop promiscuous NIC */ 
if ((!BufferSize(sSlot) /* || GetPacketLength(sSlot) != seed */) && 
1(* (RegAddr(mSlot, 4) ) & 0x08 ) ) { /* not TSR abort */ 
es if (!SendPacket (sSlot, &broadcastID, &triggerData, 64) } /* trigger analyser */ 
has --packetsSent; /* don't count trigger packet in totals */ 


++lostOrCorrupt [mSlot]; 

Message (TimeStamp(} }); 

sprintf (st, “\nPacket #%d was corrupted or lost ", packetsSent-1); 
Message (st); 


if (!BufferSize(sSlot) ) /* changed m to s 15 April 1988 */ 
Message (" (receive buffer empty)"); 
else if (GetPacketLength(sSlot) != seed) /* changed m to s 15 April 1988 */ 


Message ("(data length field incorrect)"); 
oldVerbose = verbose; 


verbose = -l; 

Message ("\n----Transmitter packet header & data----\n"); 
DumpRAM (mSlot, (short *)RAMStart (mSlot}, 24); 

Message ("----Transmitter Slot Status----\n"); 
AnalyzeRegs (mSlot); 

Message ("----Receiver Slot Status----"); 


AnalyzeRegs (sSlot); 


lf (pSlot!=-1) { 


Message ("\n----Promiscuous Slot Status----"); 
AnalyzeRegs (pSlot); 
* (RegAddr (pSlot, 0x00) ) = Ox21; /* stop promiscuous NIC */ 


Message ("Into promiscuous DumpRAM\n"); 
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while (i = BufferSize(pSlot) ) { 
printf(“bndry = %x, current = %x", (int)Boundry(pSlot), 
(int)Current (pSlot) ); 

GetPacketSource (pSlot, &theID); 
printf(“Buf siz = %x, source id = %x &x %&x", 

(int) BufferSize(pSlot), (int)theID.h, (int)theID.m, (int)theID.1); 
DumpRAM (pSlot, Boundry(pSlot)*256, 8); 
RemoveNextPacket (pSlot); 
if (i == BufferSize(pSlot) ) /* bug fix */ 

break; 


} 


verbose = oldVerbose; 
Message ("\n\n") ? 
printf ("%$9d",packetsSent); printf (backspaces); 
/* for (i = 0; i < MAX_SLOTS; i++) 
if (autoslots[i]) 
InitNIC (slotTable[{i].slotID); /* hanging card fix */ 
} 
CRSMask O07 AnalyzeRegs (mSlot}); /* also updates error tally count */ 
CRSMask ee AnalyzeRegs (sSlot); 
while (BufferSize (mSlot) ) RemoveNextPacket (mSlot); 
while (BufferSize (sSlot)) RemoveNextPacket (sSlot); 


/* if (pSlot != -1) AnalyzeRegs(pSlot); */ 
if (pSlot != -1) { 
while (i = BufferSize(pSlot)) { 
printf("bndry = $x, current = %x", (int) Boundry (pSlot), 
(int) Current (pSlot) ); 
GetPacketSource (pSlot, &theID); 
printf("Buf size = $x, source id = %x %x %x\n", 
(int) BufferSize(pSlot), (int)theID.h, (int})theID.m, (int)theID.1); 
DumpRAM (pSlot, Boundry(pSlot)*256, 8); 
RemoveNextPacket (pSlot); 
if (1 == BufferSize(pSlot) ) /* bug fix */ 
break; 


} 


} 
/* printer ("\n") > *7 
ignoreErr = 0; /* reset disable error reporting mechanism */ 
if (Button() ) 
return; /* do user interface stuff */ 
} while (TIME ZIPS BY); 


RemoveETInt (0x0c) ; 
QuitTest ()}; 
} 


if oy 
( } #define TPSR 0x00 /* Transmit Page Start */ 
ad #define PSTART (unsigned char) 0x08 /* receive buffer start */ 
#define PSTOP (unsigned char) 0xl1f 


char * 
GetSlotAddress({id}) /* returns slot address of id */ 
{ 


} 


GetNextPair(mSlot, sSlot} 
short *mSlot, *sSlot; 
{ 


return slotAddrs[id]; 


Static int lastMaster = -1; 


if (lastMaster < Q) 
while (tautoslots[+t+lastMaster] ) 


f 
*sSlot = slotTable[lastMaster].slotID; 
slotTable[lastMaster].master = 0; 
do { 
++lastMaster; 
lastMaster %= MAX SLOTS; 
} while (!autoslots[lastMaster] ); 


*mSlot = slotTable[lastMaster].slotID; 
slotTable[lastMaster].master = ~1; 
} 


int 

SendPacket (SID, dROMID, data, dLength) /* returns non-zero on failure */ 

short sID; 

romID *dROMID; 

short *data; /* In this version, only 2 bytes copied to xmit buffer so as to maximize traffic */ 
short dLength; 

{ 


short *wPtr; 


wPtr = (short *) ((long)RAMStart(sID) & Oxfffffff0); 
/* *wPtr = GROMID->h & Ox00ff; /* mask extra bits in this version */ 
/* *(wPtr + 1) GROMID->m & Oxf f00; 


| 


*(wPtr + 2) GROMID->1 & Oxff00; /* destination address */ 
*wPtr = 0x1234; 

*(wPtr + 1) = 0x5678; 

*(wPtr + 2) = Ox9abc; /* destination address */ 

*(wPtr + 3) = slotTable[sID].ROMID.h «& OxO00ff; 

*(wPtr + 4) = slotTable[sID].ROMID.m & Oxff00; 

*(wPtr + 5) = 


slotTable[sID].ROMID.1 & Oxff00; /* source address */ 
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*(wPtr + 6) = dLength; 

*(wPtr + 7) = (short) (packetsSent>>16) ; /* packet # data */ 
*(wPtr + 8) = (short) (packetsSent & Oxffff); /* packet # data */ 
*(wPtr + 13) = *data; /* test data */ 


* (RegAddr(sID, 6) } = (char) ({dLengtht+14) >> 8); /* add header byte length */ 
* (RegAddr(sID, 5) }) = (char) ((dLength+14) % 256); 
return Transmit (sID); 


} 


int 
Transmit (id) 
{ 


int i; 
unsigned long tCount; 
long *xmitComplete; 


xmitComplete = (long *) Oxa80; /* last 4 bytes of AppScratch area */ 
*xmitComplete = 0; /* set non-zero by interrupt */ 


tCount = TickCount() + 8*60; 
* (RegAddr (id, 7) ) = -1; /* clear ISR bits */ 
/* * (RegAddr (id, Oxf) ) = 0; /* clear interrupt mask register */ 
* (RegAddr (id, Oxf) ) = Ox0a;> /* set interrupt mask register transmit int only*/ 
* (RegAddr (id, Oxd) ) = 0x00; /* transmit config reg: normal operation */ 
* (RegAddr (id, 0) ) = 0x22; /* start NIC */ 
* (RegAdadr (id, 0) )} = 0x26; /* & transmit */ 
Test ROMRead (); /* test for decode address problem */ 
for (i=0O; i<2000; ++i) /* wait a bit before testing for status */ 


/* while (!(*(RegAddr(id, 4) ) && tCount > (unsigned int) TickCount () ) /* was 7 */ 
while (!(*xmitComplete) && tCount > (unsigned int)TickCount () ) 
TestROMRead (); /* wait for ISR status */ 
if (tCount <= (unsigned int)TickCount() ) { 
Message (TimeStamp() ); 
sprintf(st, “"\nSlot %x, Packet #%d: NIC transmit timeout\n", id +9, packetsSent); 
Message (st); 
++transmitTimeouts[id]; 
/* for (i = 0; i < MAX SLOTS; i++) 
if (autoslots[i]) 
InitNIC (slotTable[i].slotID); /* hanging timeout fix */ 
return -1; 


/* else if (!( *(RegAddr(id, 7)) & 0x08) ) /* transmit error- excessive collisions or FIFO underrun */ 


++packetsSent; 

return 0; 
} 
int 
EchoPacket (id) /* send a packet back to its source */ 
short id; /* returns non-zero on error */ 
{ 

ink. -ent? 


romID theROMID; 


if (!BufferSize(id) ) { 
printf (“EchoPacket called with no packets in buffer\n"); 
return <1; 


} 


CopyData(id, RAMStart (id) + Boundry(id)*256 + 4, RAMStart (id), cnt); 
cnt = GetPacketLength (id); 
Get PacketSource (id, &theROMID); 
if (SendPacket (id, &theROMID, RAMStart(id)+16, cnt) } 
return -1; /* handle this error in main loop */ 
RemoveNext Packet (id); /* clean up buffer */ 
return 0; 
} 


unsigned char 
GetNext Link (id) /* returns the next packet's page address */ 


{ 
} 


RemoveNext Packet (id) /* clear next packet from ring buffer without saving */ 
short id; 
{ 


return *((unsigned char *)RAMStart (id) + Boundry(id)*256 + 1) & PSTOP; 


unsigned char link; 


if (!BufferSize(id) } { 
/* Message ("RemoveNext Packet called with no packets in buffer\n"); */ 
return -1; 
} 


link = GetNextLink (id); 
if (--link < PSTART) link = PSTOP; /* wraparound adjust */ 
/* printf("removeNP slot %x link is %x\n", id+9, (int) link); ad 
++packetsReceived; /* should this be elsewhere??? */ 
* (RegAddr (id, 3) ) = link; /* reset NIC boundry pointer */ 
} 


Get Packet Length (id) 
{ 


Short *cnts 


cnt = RAMStart(id) + Boundry({id)*256 + 16; /* from receive buffer */ 
return *cnt; 


} 


Get Packet Source (id, source) 
short id; 


romID *source; /* returns the sender ROM id of next packet in memory */ 
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{ 


if (BufferSize (id) 0) { /* maybe call an alert??? */ 
Message ("Uh oh, GPS called with no packets in buffer...\n"); 
return -1; 

} 

source->] 

source->m 

source->h 

return O; 


* (short *) (RAMStart (id) + Boundry(id)*256 + Oxe); 
*(short *) (RAMStart (id) + Boundry (id) *256 + Oxc); 
* (short *) (RAMStart (id) + Boundry(id})*256 + Oxa); 


} 


int 
Boundry (id) /* returns page pointer to next package to remove from ring */ 
short id; 


{ 


unsigned char bPtr; 


if (id == pSlot) * (RegAddr(id, 0) ) = 0x21; /* page 0 */ 

else * (RegAddr (id, 0) ) = 0x22; 

bPtr = *((unsigned char *)RegAddr(id, 3) }; 

if (++bPtr > PSTOP) /* ++bPtr points to next available buffer */ 
bPtr = PSTART; 


return (int)bPtr; 
} 


) 


int 
Current (id) /* returns current page register (head ptr to receive ring buffer) 
short id; 
{ 
char curPtr; 
if (id == pSlot) * (RegAddr{id, 0} ) = Ox61; /* page 1 */ 
else * (RegAddr({id, 0) ) = 0x62; 
curPtr = *(RegAddr(id, 7) ); 
if (id == pSlot) * (RegAddr(id, 0) ) = Ox21; /* page 0 */ 
else * (RegAddr(id, 0} ) = 0x22; 
return (int)curPtr; 
} 
int 
BufferSize({id) /* returns the page size of unread buffers */ 
short id; 
{ 
int num; 
num = Current (id} - Boundry (id); 


1f (num < 0) num += 


PSTOP - PSTART; 


return num; 


} 


struct NIiCpair { /* each NICpair pair corresponds to data, 


register */ 


char data; 


char reg; 
} NICinit[}] = { 
Ox22, 0x0, /* NIC off-line */ 
Ox21, Ox0, /* init command register, abort DMA, NIC off-line, Page 0 */ 
0x49, OxE, /* Data config set - word length DMA transfers */ 
0x00, OxA, /*clear RBCRO */ 
0x00, OxB, /*clear RBCR1 */ 
0x00, Oxc, /* Rev config set should be a menu item to set bits */ 
0x02, OxD, /* NIC in loopback mode */ 
PSTART,Oxl, /* set PSTART reg - ring buffer init */ 
PSTOP, Ox2, /* set PSTOP reg - ring buffer init */ 
PSTOP, 0x3, /* set boundary reg - ring buffer init */ 
TPSR, 0x4, /* Xmit Page Start */ 
OxFF, Ox7, /* reset Interrupt Status register */ 
Ox00, OxF, /* set Interrupt Mask register */ 
/* 0x02, Ox6, /* set Xmit byte count register 1 */ 
/* Qx00, 0x5, /* set Xmit byte count register 0 */ 
Ox61, Ox0, /* select page 1 registers */ 
0x00, Oxl, /* set Physical Address Regs to node addr - regs 1 -> 6 */ 
0x00, Ox2, Ox00, Ox3, 0x00, 0x4, Ox00, Ox5, OxFF, 0x6, 
0x00, 0x8, /* set Multicast Address regs - regs 8 -> F */ 
Ox00, 0x9, Ox00, OxA, Ox00, OXB, 
0x00, OxC, Ox00, OxD, 0x00, OxE, 0x00, OxF, 
PSTART, Ox7,/* curr page ptr to ring buffer */ 
Ox21, Ox0, /* Select Page O regs */ 
0x22, Ox0, /* set start mode */ 
0x00, OxD /* initialize Xmit config register */ 
}; 
#define NO ERR 0x00 
#define RAM ERR 0x01 
#define OUT OF BOUNDS 0x02 
#define ISR RXE 0x03 
#define ISR TXE 0x04 
#define ISR OVW 0x05 
#define ISR _CNT 0x06 
#define TSR COL 0x07 
#define TSR_ABT 0x08 
#define TSR_CRS 0x09 
#define TSR_FU Ox0a 
#define TSR CDH 0x0b 
#define TSR OWC Ox0c 
#define RSR_CRC 0x0d 
#define RSR_FAE 0x0e 
#define RSR_FO Ox0f 
#define RSR_MPA 0x10 
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#define RSR_PHY Ox1l 
#define RSR_ MUL 0x12 
#define RSR_PRX 0x13 
#define TSR PTX 0x14 
#define TSR DFR 0x16 
#define ISR PTX 0x15 
#define ISR PRX 0x17 
#define ISR RDC 0x18 
#define FINFO ERR 0x25 
#define NICOffset (char *)0Oxe003c 
char * 
RegAddr (id, n) /* returns address of NIC register n in slot id */ 
short id, n; 
{ 
return slotAddrs[id] + NICcOffset - n*4; 
} 
int 
InitSlot (id) 
short id; 
{ 
short i, j; 
* (RegAddr (id, 0} } = Ox21; /* turn off NIC during RAM test */ 
MyAlert (id, InitRAM(id) ); 
InitNIC (id); 
for (i=O7 i < 8; i++) /* the first 16 bytes */ 
*((int *)RAMStart (id) + i) = O; /* zero xmit buffer */ 
} 
int 
InitNIC (id) 
short id; 
{ 
ink. As 
for (i=0; i < sizeof (NICinit)/sizeof(struct NICpair); i++) 
* (RegAddr (id, NICinit[i].reg) ) = NICinit[i].data; 
* (RegAddr (id, 0} ) = 0x61; /* Page 1 registers */ 
slotTable[id] .ROMID.h = *(short *)} (GetSlotAddress (id) + Oxf0006); 
slotTable[id] .ROMID.m = *(short *) (GetSlotAddress (id) + Oxf0008); 
slotTable[id] .ROMID.1 = *(short *) (GetSlotAddress(id} + Oxf000a); 
if (slotTable[id] .ROMID.h == 0x700 && slotTable[id].ROMID.m == 0x900 && 
slotTable[id].ROMID.1 == Oxb00) { 
sprintf (st, “WARNING: card in slot %x may be missing ROM identifier chip.\n", 
Message (st); 
Message ("Program cannot run without this ROM installed. \n"); 
Query (); 
} 
*((int *)RegAddr(id, 1) ) = O; /* multicast address has MSB set high */ 
*((int *)RegAddr(id, 2) ) = ((int)slotTable[id].ROMID.h) << 16; 
*((int *}RegAddr(id, 3) } = ((int)slotTable[id].ROMID.m) << 16; 
*((int *}RegAddr(id, 4) } = O; 
*((int *)RegAddr(id, 5) ) = ((int)slotTable[id].ROMID.1) << 16; 
*((int *)RegAddr(id, 6) } = O; 
slotTable[{id].ROMID.h = (slotTable[id].ROMID.h >> 8) «& OxO0O0ff; 
/* so as not to be confused with a multicast address */ 
/* slotTable[id].ROMID.m &= Oxff00; 
slotTable[id].ROMID.1 &= Oxff00; 
ia 4 
/* Physical Addr node # */ 
* (RegAddr (id, 0) ) = Ox21; /* Page 0 regs */ 
1 = *RegAddr(id, 0x0d); /* clear tally counters */ 
i = *RegAddr(id, 0Ox0e)}; 
i = *RegAddr(id, Ox0f); 
/* printf("block id = $x %x %x", *(short *) (GetSlotAddress(id}) + Oxf0000), 
* (short *) (GetSlotAddress (id) + Oxf0002), 
*({short *) (GetSlotAddress (id) + Oxf0004) ); 
/* 
printf(" slot id = %x %x $x", *(short *) (GetSlotAddress (id) + Oxf0006), 
*(short *) (GetSlotAddress (id) + Oxf0008), 
*(short *) (GetSlotAddress (id) + Oxf000a) ); 
*/ 
if (id != pSlot}) * (RegAddr (id, 0) } = 0x22; /* start NIC */ 
/* sprintf(st, “slot $x: NIC initialized\n", id+9); 


Message (st); */ 
return NO_ ERR; 
} 


#define RAMOffset (char *} 0OxD0O000 
char * 
RAMStart (id) 
short id; 

{ 


} 
int 
InitRAM(id) /* returns non-zero error on failure */ 


Snort id; 


{ 


return GetSlotAddress (id) + RAMOffset; 


register short *ptr; 
register short i; 


/* return the first location of RAM on board in slot id (0-5) 


Eg ea Et ec tarps big cahls o 
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ptr = (short *) RAMStart (id); 


for (i = O; 1 < Ox2000; i++) 
*(ptr+i) = Oxffff; 
for (i = O; i < Ox2000; i++) 
1f (*(ptrt+i) & Oxffff != Oxffff) { 
errorAddress = (char *) ptr + i; 
Message ("1"); 
return RAM ERR; 
} 


for (i = O; i < Ox2000; i++) 
*(ptr+i) = 0; 
for (i = O07; i < 0x2000; i++) 
if (*(ptrti) != 0) { 
errorAddress = (char *) ptr + i; 
Message ("2"); 
return RAM ERR; 
} 


for (i = 07; i < Ox2000; itt) { 
*(ptrti) = i; 
if (*(ptrti) f= i) { 
errorAddress = (char *) ptr + i; 
Message ("3"); 
return RAM ERR; 


for {1 = O7; i < Ox2000; i+t+) 
*(ptrt+i) = 0Ox5555;7 
for (i = O7 i < Ox2000; i++) 
if (*(ptrt+i) != 0x5555) { 
errorAddress = (char *) ptr + i; 
Message ("4"); 
return RAM ERR; 
} 


for (i = O7 i < Ox2000; i++) 
*(ptrt+i}) = Oxaaaa; 
for (i = O7; i < Ox2000; i++) 
1f (*(ptrt+i) & Oxffff != Oxaaaa) { 
errorAddress = (char *} ptr + i; 
Message ("5"); 
return RAM ERR; 


Message ("RAM Test completed \n"); 
return NO_ ERR; 


void 
DumpRegs (id) 
short id; 

{ 


/* of NIC in slot id (9 ~ e) */ 


int i; 
char 4? 


* (RegAddr (id, 0) } = 0x21; 
sprintf (st,"NIC Register dump of machine %x, slot %x\nPage 0 
for (i=O; i < 16; i++) { 
if (i == 6) 
Message ("6:XX "); 
else { 
j = *(RegAddr(id, i) ); 
sprintf (st,"%lx:%02x ", i, (j & Oxff) ); 
} 


Message ("\nPage 1 "); 
* (RegAddr (id, 0} } = Ox61; 
for (i=O; i < 16; itt) { 
j = *(RegAddr(id, i) }; 
sprintf(st, "%1x:%02x ", i, (j & Oxff) ); Message (st); 


} 


Message ("\n"); 


if (id != pSlot) * (RegAddr (id, 0) ) = 0x21; 
else * (RegAddr (id, 0) } = 0x22; 
} 
void 
DumpRAM(id, begin, cnt) /* display a range of memory in card id */ 
short id; 
char *begin; 
int, cnt; 


{ 
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/* check two bytes at a time */ 


/* compiler returns 32 bit data */ 


", machnum, id + 9); 


/* don't disturb data in FIFO register */ 


Message (st); 


begin = (RAMStart (id) + ((short)begin & Ox3ffe) }); /* start on word boundry */ 


sprintf (st,"%4x: ", begin); Message(st); 


while (cnt-- > 0) { 


sprintf(st, “%04x ", *(short *)begin & Oxffff); Message (st); 


begin += 2; 
1f (!((short)begin % 16) && cnt) { 
sprintf(st, "\nt4x: ", begin); 
Message (st); 
} 
} 


Message ("\n"); 


Message (st); 
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return; 


} 


char *memcpyl (to, 
short *to, *from; 
int cnt; 


{ 


from, cnt) 


cnt >>= 1; 
while (cnt--) 

*(tot+) = * (fromt+t+); 
return from; 


} 


int 
CopyData(id, from, to, cnt) 
short id; 
char *to, *from; /* absolute addresses */ 
int cnt; /* count in bytes */ 
{ 
int first; /* used to calculate page memory wraparound */ 


first = min(RAMStart (id) + (PSTOP+1)*256 - from, 
memcpyl (to, from, first); 

to += first; 
if ( (cnt -= 


cnt); 


first) > 0) memcpyl (to, RAMStart (id) + PSTART*256, cnt); 


} 


fillw(seed, to, cnt) 
register int seed; 
register short *to; 
register int cnt; 


{ 


/* simple routine for filling a data buffer */ 


++ent; 
ent >>= 1; /* # of words in packet */ 
‘while (cnt--) 
*(tot++) = seedtt; 
return; 
} 
void © °° 


swap bytes (i dod */ 
register short *i; 


{ 


/* ror.w #8, 


register short j; 


j = *1i & Oxffff; 
*1 = 4<<8 {| 4j>>8; 
Z return; 


( ) | 
Og AnalyzeRegs (id) 
short id; 


{ 


/* check status registers of NIC for errors and such */ 


register char flags; 


if (packetsSent < 6) 


return; /* NIC may show false errors after power on */ 
/* *{(RegAddr(id, 2) ) = 0x21; /* stop NIC while checking regs */ 

flags = * (RegAddr({id, 7) ); 

if (flags & 0x01) MyAlert (id, ISR_PRX); 

if (! (flags & 0x02)) MyAlert (id, ISR PTX); 

if (flags & 0x04) MyAlert (id, ISR _RXE); 

if (flags & 0x08) MyAlert (id, ISR_TXE); 

if (flags & 0x10) MyAlert (id, ISR OVW); 

if (flags & 0x20) MyAlert (id, ISR CNT); 

if (flags & 0x40) MyAlert (id, ISR RDC); 

flags = *(RegAddr(id, 4) ); 

if (! (flags & 0x01)) MyAlert (id, TSR PTX); 


if (flags & 0x02) 
if (flags & 0x04) { MyAlert (id, 
if (flags & 0x08) MyAlert (id, 
if ((flags & Ox10) && !CRSMask) 
if (flags & 0x20) MyAlert (id, 


MyAlert {id, 


if (flags & 0x40) MyAlert (id, 
if (flags & 0x80) MyAlert (id, 
flags = *(RegAddr(id, Oxc) ); 
if (flags & 0x01) MyAlert (id, 
if (flags & 0x02) MyAlert (id, 
if (flags & 0x04) MyAlert (id, 
if (flags & 0x08) MyAlert (id, 
if (flags & 0x10) MyAlert (id, 
if (flags & 0x20) MyAlert (id, 
else MyAlert (id, 
if ((flags = *RegAddr(id, 0x0d)} 
alignErrors[{id] += flags; 
sprintf(st, “Slot %x, Packet 


Message (st); 


if ((flags = *RegAddr(id, Ox0e)) 
CRCErrorTally[id] += flags; 
sprintf(st, "Slot %x, Packet 
Message (st); 


if ((flags = *RegAddr(id, Ox0f)) 
missedPackets[id] += flags; 
sprintf(st, “Slot %x, Packet 


TSR DFR); 


TSR COL); Retries += * (RegAddr (id, 


TSR ABT); 
MyAlert (id, TSR_CRS); 
TSR_FU); 
TSR CDH); 
TSR OWC); 


RSR_PRX); 
RSR_CRC); 
RSR_FAE); 
RSR_FO); 
RSR_MPA); 
RSR_ MUL); 
RSR_PHY); 


} != 0 && flags != Ox7f) 


$d: Frame alignment error tally (hex):%x\n", id +9, packetsSent, flags); 


'= 0 && flags != Ox7f) 


$d: CRC error tally:%x\n", 


t= 0 && flags != 0x7f) 


$d: Missed packet error tally:%x\n", 


{ 


2) 


packetsSent, 


) 


nig Mie ge or 


t 


} 


packetsSent, 
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Message (St)7 


} 
if (id != pSlot) 
* (RegAddr (id, 0} }) = 0x22; /* start, page 0 */ 
} 


void 
MyAlert (id, which) /* informs operator of system errors and warnings */ 
{ 
switch(which) { /* transmission status */ 
case NO ERR: return; 
case ISR PTX: 
if (verbose) Message("Interrupt status register: Successful transmission bit NOT set.\n"); 
return; 
case TSR PTX: 
if (verbose) Message("Transmit status register: Successful transmission bit NOT set.\n"); 
return; 
case TSR DFR: 
if (CRSMask)} return; 
if (verbose) Message("Transmit status register: Non deferred transmission.\n"); 
return; 
case TSR CDH: 
if (CRSMask) return; 
++heartFailures [id]; 
if (verbose) Message("Transmit status register: Possible collision detect heartbeat failure.\n"); 
return; 
case TSR CRS: 
if (CRSMask) return; 
++carrierLost [id]; 
if (verbose) Message("Transmit status register: Carrier sense lost. Transmission not aborted.\n"); 
return; 
case TSR COL: 
if (CRSMask) return; 
++collisions[id]; : 
if (verbose) Message("Transmit status register: Transmission collision detected.\n"); 
return; 
case TSR OWC: 
if (CRSMask) return; 
++OWC [id]; 
if (verbose) Message("Transmit status register: Out of window collision. Transmission not aborted.\n"); 
return; 
case TSR ABT: 
if (CRSMask) return; 
++excessCollisions[id]; 
if (verbose) Message("Transmit status register: Transmission aborted due to excessive collisions.\n"); 


else /* printf ("Transmit status register: Transmission aborted due to excessive collisions.\n"); 
ignoreErr = -1; happens rather often on a loaded network*/ 

- return; 

aN case ISR_TXE: 

) if (CRSMask) return; 

base if (verbose) { 


printf("Slot %x, Packet #%d: ", id +9, packetsSent); 
Message ("\nInterrupt status register: Transmit error (excessive collisions or FIFO overrun) \n"); 


else {[* printf ("Interrupt status register: Transmit error (excessive collisions or FIFO overrun) \n"); 
«/ return; 
case RSR PRX: /* reception status */ 


case ISR PRX: 
if (0) Message("Successful reception bit set.\n"); 
return; 
case RSR PHY: 
if (0) Message("Receive status register: Packet used a physical address.\n"); 
return; 
case RSR MUL: 
++multicastsReceived[id}; 
if (verbose) Message("Receive status register: Multicast address bit set.\n"); 
return; 


} 


sprintf(st, "\nSlot %x, Packet #%d: ", id +9, packetsSent); 
Message (st); /* report a serious error */ 
switch(which) { 
case RAM ERR: 
sprintf(st, "RAM memory failure at address %x\n", errorAddress) ; 
Message (st)? 
break; 
case ISR_RXE: 
++receiveErrors [id]; 
Message ("Interrupt status register: Receive error (CRC, Frame align, FIFO Overrun, or missed packet)\n"); 
break; 
case ISR OVW: 
++bufferOverflows [id]; 
Message ("Interrupt status register: Overwrite warning (receive buffer is filled)\n"); 
break; 
case ISR CNT: 
Message ("Interrupt status register: Counter overflow.\n"); 
break; 
case TSR FU: 
++FITFOunderruns [id]; 
Message ("Transmit status register: FIFO underrun detected.\n"); 
break; 
case RSR_CRC; 
++CRCErrors [id]; 
Message ("Receive status register: Received packet with CRC error.\n"); 
break; 
case RSR_FAE: 
++alignErrors [id]; 
Message ("Receive status register: Frame alignment error detected.\n"); 
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} 


break; 
case RSR_ FO: 
++FIFOoverruns [id]; 


Message ("Receive status register: FIFO overrun. Packet reception aborted.\n"); 


break; 
case RSR_ MPA: 
Message ("Receive status register: Missed Packet due to buffer overflow.\n"); 
break; 
default: 
sprintf(st, “Program alert ID = d\n", which); Message(st); 
} 


return; 


QuitTest () 
{ 


} 


FInfo the info; /* used to set 'TEXT' type output file */ 


PrintStats(); 
printf ("Appending all results to file %s", fileName); 


if (GetFInfo(fileName, (short)0, &the_info) != noErr) MyAlert (0, FINFO ERR); 
the _info.fdType = 0x54455854; f* *TEXT* 27 
if (SetFInfo(fileName, (short)0, &the info) != noErr) MyAlert (0, FINFO ERR); 


fclose (outFile); 


PrintStats () 


{ 


} 


Message ("\n"); 
Message (TimeStamp() }; 
sprintf(st, “\n\nTotal packets sent (base 10) = %d, ", packetsSent); 
Message (st); 
sprintf(st, “total packets received = %d\n", packetsReceived); 
Message (st); 
if (packetsSent) { 
sprintf(st, “Total retries = %d, Average Retries/Packet = %f\n", 
Retries, (float) Retries/packetsSent) ; 
Message (st); 
} 
Message (“Transmissions lost or corrupted-> Transmitter"); 
PrintArray (lostOrCorrupt) ; 
Message (“Excessive collisions (transmissions aborted)->"); 
PrintArray (excessCollisions); 
Message ("Transmission timeouts (transmissions aborted)->"); 
PrintArray (transmitTimeouts) ; 
Message ("Received CRC error tally register->"); 
PrintArray (CRCErrorTally); 
Message ("Packets received with CRC error bit set->"); 
PrintArray (CRCErrors); 
Message ("Packet frame alignment errors received->"); 
PrintArray (alignErrors) ; 
Message ("Buffer overflows received->") ; 
PrintArray (bufferOverflows); 
Message ("Missed packets due to buffer overflow->"); 
PrintArray (missedPackets}; 
Message ("FIFO underruns-—>"); 
PrintArray (FIFOunderruns}; 
Message (“FIFO overruns->"); 
PrintArray (FIFOoverruns); 
Message ("Possible collision detect heartbeat failure bit set->"); 
PrintArray (heartFailures) ; 
Message ("Carrier sense lost (transmissions not aborted)->"); 
PrintArray (carrierLost); 
Message ("Total collisions (transmissions not aborted)->"); 
PrintArray (collisions); 
Message ("Out of window collisions (transmissions not aborted) ->"); 
PrintArray (OWC) ; 
Message ("Multicasts detect flag set->"); 
PrintArray (multicastsReceived); 


PrintArray (theArray) 
int theArray[]; 


{ 


} 


int: t? 


Message (" Slot"); 

for (1 = 07; i < 67 i++} 

if (autoslots[i]) { 
sprintf(st, “ Sx: tdz;",i+9, theArray[i]); 
Message (st); 

} 

put char ((char})0x08); 

Message ("\n") ; 


void 
Query () 
{ 


char temp[64]; 


printf(" Continue? (y/n)"); 

gets (temp); 

if (temp[0] != ty‘ && temp[0] != 'Y‘' && strlen(temp) > 0) { 
QuitTest(); 
exit (0); 

} 


return; 


Page 11 


1/12/89 2:25 PM Uni_Ether.c Page 12 


} 


char * 
TimeStamp () /* resolution to the second */ 
{ 

Static char lastTime[128]; 

DateTimeRec d;> 


Get Time (&d); 

sprintf (lastTime, “Date:%2d/%d/%2d Time:%2d:%02a:%02d ", 
d.month, d.day, d.year, d.hour, d.minute, d.second); 

return lastTime; 


} 


Message (string) /* logs output to outputDirection devices */ 
char *string; 


{ 
static int firstTime = -1; 


if ((outputDirection & TO FILE) && firstTime) { 

firstTime = 0; 

if (outFile = fopen(fileName, "a") ) { 
fputs ("\n\n------------ new test run----<----------- \n\n", outFile); 
Message (TimeStamp() ); 

} 

else 
printf ("error file %s could not be opened...", fileName); 


} 


if (outputDirection & TO SCREEN) printf (string); 
if ((outputDirection & TO FILE) && outFile) { 

fputs (string, outFile); 
} 


ZeroTallies (} /* reset error counters */ 


{ 
short i; 


packetsSent = 0; 
Retries = 0; 
packetsReceived = 0; 
for (i=0; i < MAX SLOTS; i++) { 
multicastsReceived[i] = 0; 
heartFailures[{i] = 0; 
carrierLost[i] = 0; 
collisions[i] = 0; 
OWC[i] = 0; 
CRCErrorTally[i] 
CRCErrors[i] = 0; 
FIFOunderruns [i] 
FIFOoverruns[i] = 0 
receiveErrors[i] = 
alignErrors[{i] = 0; 
excessCollisions[i] = 0; 
lengthErrors[i] = 0 
missedPackets[i] = 
buf ferOverflows [i] 
transmitTimeouts [i] 
lostOrCorrupt [i] = 


il 
o=e oO oO 
ba 


} 


Message ("\n---Error counters reset to zero---\n"); 


} 


#define true32b 1 
#define false32b 0 


pascal void SwapMMUMode (c}) 
char *c; 
extern OxAO5D; 


Test ROMRead () /* routine to test 3Com fix */ 
{ 


char c, mode, *aPtr; 


return; 
aPtr = (char *) OxFEFFOOOO; /* point to lst byte in ROM of Caliente card slot E */ 
mode = true32b; 
SwapMMUMode (&mode)} ; 
/* c#= *aPtr; /* 32 bit read from NuBus address */ 
mode = false32b; 
SwapMMUMode (&mode) ; 


} 


TestRead (} /* routine to time 3Com fix */ 


{ 
char c, mode; 
short *aPtr; 


qe- =. 

aPtr = (short *) OxbDOO000; /* point to lst byte in ROM of Caliente card slot D */ 
*aPtr = Oxabcd; /* 32 bit read from NuBus address */ 

for (i1=O; i<1500; ++i) : /* wait a bit before testing for status */ 


*aPtr = Oxabcd; . /* 32 bit read from NuBus address */ 


